XL 2016 LISTBOX et recherche intuitive

ChTi160 à dit:

Re
on peut aussi passer par un tableau

VB:

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

Jean marie

Cliquez pour agrandir...

patricktoulon à dit:

Bonsoir
@ChTi160 heu pourquoi 2 listboxs?

Cliquez pour agrandir...

1. si le textbox contient quelque chose qui ne se trouve pas dans la liste la listbox est vide
2. si le textbox est vide la listbox contient la liste complète
3. recherche par commence par
4. recherche par contient

"Je voudrais avec mon textbox1 faire la recherche d'un produit dans mon listbox."

Cliquez pour agrandir...

patricktoulon à dit:

voilà voilà vite fait
je t'ai ajouté la recherche par commence par ou contient

1. si le textbox contient quelque chose qui ne se trouve pas dans la liste la listbox est vide
2. si le textbox est vide la listbox contient la liste complète
3. recherche par commence par
4. recherche par contient

voilà😉

Cliquez pour agrandir...