Citation :
Option Compare Text
Private Sub TextBox1_Change()
Range("A8:A503" ).Interior.ColorIndex = 2
If TextBox1 <> "" Then
For ligne = 8 To 503
If Cells(ligne, 1) Like TextBox1 Then
Cells(ligne, 1).Interior.ColorIndex = 44
Cells(ligne, 1).Select
End If
Next
End If
End Sub
|