Bonjour à tous,
Je suis nouveau sur ce forum et j 'espère ,e pas être trop approximatif dans ma demande.
Je cherche a faire une recherche intuitive depuis un textbox qui est sur une feuille nommé "RECHERCHE" sur une base de donné qui est sur une autre feuille nommé "BASE".
En mettant le code ci-dessous cela ne fonctionne pas ...
Private Sub TextBox2_Change()
ListBox2.Clear
With Worksheets("BASE")
For ligne = 2 To 2000
If Cells(ligne, 1) Like "*" & TextBox2 & "*" Then
ListBox2.AddItem Cells(ligne, 1)
End If
Next
End With
End Sub
Quelqu'un pourrait il me dire ou est l'erreur , cela fait 2 jours que je cherche en vain.
Ci-joint un fichier test .
Par avance merci de votre aide.