Filtrer le rowsource une list box

Bonjour,


J'ai une listbox dans le form (Boutton 1) alimentée par des données (rowsource "cheville"). Cette liste est trop longue.
je souhaite que si l'utilistateur tape quelques lettres, la liste des items de la rowsource soit filtré du contenu.

Sachant que j'aurais plein de listbox, il faudrait pouvoir toujours utiliser une rowsource lie a une liste fixe

Par exemple si je tape 60 dans la liste box, n'apparaisse plus que les éléments contenant 60 afin de limiter la selection.



Any idea?

find avec findnext
ou for avec instr

je suis beaucoup trop novice pour comprendre la reponse

Tu fais une textbox, sur l'évènement change de cette textbox tu vas boucler sur la colonne qui vient remplir la listbox et vérifier si il contient bien ce que tu as tappé; deux façons de faire avec une boucle ou avec un find

Methode barbare:
Supposons que ta liste s'appelle liste et que ton textbox1 s'appelle texte que ta liste soit alimentée par la colonne 1 de la feuil1

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBox1_Change() liste.clear For i = 1 to Feuil1.range("A" & Feuil1.rows.count).end(xlup).row If instr(ucase(cstr(Feuil1.range("A" & i))),ucase(textbox1.value))>0 then liste.add Feuil1.range("A" & i) end if next i End Sub

---

merci beaucoup


mais est il possible de tout faire dans la liste box au lieu de sisir dans la texte et de filter ans la liste?

Bonjour.

Citation:

---

Envoyé par nikomotte

[…] je souhaite que si l'utilistateur tape quelques lettres, la liste des items de la rowsource soit filtré du contenu

---

L'idéal serait la fonction Filter, consulter l'aide intégrée VBA et les tutoriels et autres FAQ de ce site
comme par exemple dans le document Manipuler les chaînes de caractères …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour,

J'ai utilisé une ComboBox plutôt qu'une ListBox.
Une piste avec la démarche ci-dessous

1) Créez un UserForm1 avec une ComboBox1
2) Dans la fenêtre de code du UserForm, copiez le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Dim var   Private Sub ComboBox1_Change() Dim A$ Dim i& '--- On sort si la sélection a une correspondance exacte --- For i& = 1 To UBound(var, 1) If ComboBox1 = var(i&, 1) Then   '### exemple d'utilisation : la sélection s'affiche dans E10 ### [e10] = ComboBox1 '###############################################################   Exit Sub End If Next i& '--- On filtre la liste avec les caractères tapés --- A$ = ComboBox1 ComboBox1.Clear For i& = 1 To UBound(var, 1) If InStr(1, UCase(var(i&, 1)), UCase(A$)) > 0 Then ComboBox1.AddItem var(i&, 1) End If Next i& End Sub   Private Sub UserForm_Initialize() ComboBox1.ListRows = 10 '--- On met tout le contenu de la plage nommée "cheville" dans ComboBox1.List --- var = ActiveSheet.Range("cheville") ComboBox1.List = var End Sub

---

Il est indispensable d'avoir une plage nommée "cheville" sur la feuille active comportant les différents items de chevilles.

La liste de la ComboBox se filtre au fur et à mesure des caractères tapés.
Le choix s'effectue en cliquant dans la zone déroulante.

Je mets un exemple en pièce jointe pour faciliter.