Créer un filtre à partir d'une List

Bonjour,

J'ai cherché un tas de chose, mais je n'arrive pas à réaliser ce que je souhaite.


J'ai deux feuilles : une feuille ("LJ") remplie de détail pas jolie, et une jolie feuille ("Outil").

J'utilise un moteur de recherche par mot clé sur la jolie feuille ("Outil"), c'est à dire qu'en tapant un mot dans ma TextBox21, je vais chercher dans la colonne 11 de la feuille "LJ" ce mot. Je retrouve dans ma ListBox21 le nom (je récupère le contenu de la colonne A en gros) de toutes les lignes où se trouvent se mot.
Jusque là ça marche.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton21_Click()   If TextBox21 <> "" Then   Call nbLigne   For i = 0 To nb       If Sheets("LJ").Cells(i, 11) Like "*" & TextBox21 & "*" Then ListBox21.AddItem Sheets("LJ").Cells(i, 1) End If Next   End If   End Sub

---

Or maintenant j'aimerais appliquer un filtre à ma feuille ("Outil") pour afficher seulement les lignes associées au résultat de ma ListBox21.

J'ai regardé un tas de chose, mais étant donné que mon nombre de critère pour mon filtre étant variable, je ne sais pas comment m'y prendre. D'autant plus que pour le "Field", je vais chercher mes valeurs dans une autre feuille.

Si vous pouviez m'aider, ça serait fort sympathique.

En vous remerciant

EDIT :

J'avais pensé à utiliser Listbox21.Count pour avoir le nombre d'item de ma liste.
Et après avec une boucle For k = 0 to (Listbox21.Count - 1), ressortir un a un les items de ma liste. Mais je n'y arrive pas :/

Bonjour,
Tu pourrais t'inspirer de la syntaxe :

Code:

---

Range("A1:D10").AutoFilter Field:=1, Criteria1:=Array("titi", "toto", "tutu"), Operator:=xlFilterValues

---

avec un array. Ceci te permet de filtrer sur plusieurs valeurs. Tu peux créer un array avec les éléments de ta listbox et l'utiliser comme critère de filtre.

Merci riaolle de prendre le temps de lire mon sujet :)

Ne maîtrisant pas très bien les Array, j'ai testé de passer par un tableau :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim tableau() As Variant   nb = ListBox21.ListCount ReDim tableau(nb - 1)     For k = 0 To nb - 1   If ListBox21.Selected(k) Then   tableau(k) = ListBox21.List(k) End If   Next k       Range("Tableau4").AutoFilter Field:=1, Criteria1:=tableau, Operator:=xlFilterValues

---

Tableau4 correspond à la plage de tout mon tableau.

Lorsque je fais cela : je me retrouve avec un filtre qui efface tout :lol:

En mettant des MsgBox un peu partout j'ai l'impression que mon tableau ne s'est absolument pas rempli...

Merci beaucoup :)

Up !

Je n'y arrive malheureusement toujours pas :s

Bonjour,

cf PJ

Boisgontier
http://boisgontierjacques.free.fr

Bonjour Jacques

Merci beaucoup, vous et votre site êtes géniaux.

Résolu !