Bonjour,
J'ai récupéré ce script mais il prend en compte la casse:
Quelle modification dois je faire pour qu'il ne respecte plus la casse?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager