Bonjour à tous,
novice en vba, j'éprouve quelques difficultés à voir précisément ce qui ne va pas dans mon code. J'ai fait une zone de recherche et elle fonctionne parfaitement lorsque je la cible sur une seule colonne mais je ne parviens pas à englober les colonnes 2 à 6.
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("B2:G100").Interior.ColorIndex = xlColorIndexNone
ListBox1.Clear
If TextBox1 <> "" Then
For ligne = 2 To 100
If Range("B:G") Like "*" & TextBox1 & "*" Then
Range("B:G").Interior.ColorIndex = 20
ListBox1.AddItem Range("B:G")
End If
Next
End If
End Sub
merci pour l'aide que vous pourrez m'apporter