Merci beaucoupRe
on peut aussi passer par un tableau
Jean marieVB:Dim StrSearch$ Dim Lgn As Long Dim T Private Sub TextBox1_Change() StrSearch = "*" & Me.TextBox1.Text & "*" Me. ListBox2.Clear If Me.TextBox1 = Empty Then Exit Sub T = Me.ListBox1.List For Lgn = 1 To UBound(T, 1) If T(Lgn, 0) Like StrSearch Then Me.ListBox2.AddItem T(Lgn, 0) End If Next End Sub
c'est quoi le rapport avec la 2d listbox ?"Je voudrais avec mon textbox1 faire la recherche d'un produit dans mon listbox."
Private Sub opt1_Click()
TextBox1_Change
End Sub
Private Sub opt2_Click()
TextBox1_Change
End Sub
Très puissant !!!voilà voilà vite fait
je t'ai ajouté la recherche par commence par ou contient
voilà
- si le textbox contient quelque chose qui ne se trouve pas dans la liste la listbox est vide
- si le textbox est vide la listbox contient la liste complète
- recherche par commence par
- recherche par contient