Comparaison insensible à la casse

Bonjour,

J'ai récupéré ce script mais il prend en compte la casse:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Sheets("Aide X3").Select
End Sub
 
Option Compare Text
 
Private Sub TextBox1_Change()
 
    Application.ScreenUpdating = False
 
 Range("A3:O41").Interior.ColorIndex = xlNone
 
    If TextBox1 <> "" Then
        For ligne = 2 To 41
            If Cells(ligne, 3) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 3).Interior.ColorIndex = 3 'Exemple 1 (feuille)
 
            End If
        Next
    End If
 
End Sub

Quelle modification dois je faire pour qu'il ne respecte plus la casse?

Bonjour,

ajoute la ligne :

Code:

Option Compare text

tout en haut de ta page de code..

bonjour,

Code:

Instr( Cells(ligne, 3) , TextBox1 )<>0 Then