XL 2016 LISTBOX et recherche intuitive

[KTM]

Bonjour chers tous
Je voudrais avec mon textbox1 faire la recherche d'un produit dans mon listbox.
merci !!!!

 

[KTM]

Re
on peut aussi passer par un tableau

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

Merci beaucoup

 

[patricktoulon]

Bonsoir
@ChTi160 heu pourquoi 2 listboxs?

 

[KTM]

Bonsoir
@ChTi160 heu pourquoi 2 listboxs?

Autre proposition avec le même listbox sera mieux !!
Prière nous la partager svp!!!

 

[patricktoulon]

je te fait ça vite fait donne moi 2 minutes

 

[patricktoulon]

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à😉

 

[ChTi160]

Heu !!!!
La demande était :
"Je voudrais avec mon textbox1 faire la recherche d'un produit dans mon listbox."
Mais pour ne pas polluer le Fil ,je vous laisse faire!
Bonne soirée
Jean marie

 

[patricktoulon]

re

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

c'est quoi le rapport avec la 2d listbox ?
LOL😉

 

[ChTi160]

Re
J'ai encore rien compris !
Mais bon le sujet et clôt je crois !
Et de belle manière .
Bonne continuation.
Jean marie

 

[ChTi160]

Re
C'est pas la demande mais Bon encore ....... hors sujet ! C'est demandé où Hein !!!!!!

J'aurais ajouté :

Private Sub opt1_Click()
TextBox1_Change
End Sub
Private Sub opt2_Click()
TextBox1_Change
End Sub

Jean marie

 

[patricktoulon]

re
oui tu peux ajouter cela aussi pour remettre la liste a jour en fonction du mode de recherche cliqué

 

[KTM]

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à😉

Très puissant !!!

 

[KTM]

Merci à tous .C'est très gentil je pars satisfait!