Filtre multiple dans une listbox

Bonjour à tous
Je reviens ici car j'essai mais en vain de trouver une solution que Philippe avait trouvé pour les filtres très poussé faut dire mais actuellement j'essai de pouvoir avec son filtre réussir a intégrer une filtre multi

Je veux dire par la je selection une colonne on va dire " nom "
Dans cette colonne il y a 10 nom dont certain identique
Je souhaiterai réussir a executé le filtre avec plusieurs nom

Je joint le fichier test

Encore une fois merci de vous penchez sur mon cas :ccool:

Mon filtre actuellement filtre tout mais sans garder la selection ...
Je sais pas si c'est un bug dans mon code où si c'est pas faisable avec ma manière

Voir test feuil2 du ZIP

Bonjour,
Pour filtrer un champ avec plusieurs valeurs, on peut utiliser la fonction ARRAY
Exemple

Code:

---

1 2 3

Dim rng As Range Set rng = ActiveSheet.Range("$A$1:$J$106") rng.AutoFilter Field:=10, Criteria1:=Array("AUDI", "BMW"), Operator:=xlFilterValues

---

Pour pouvoir faire une muli-sélection dans un ListBox ou ComboBox, il y a lieu de modifier la propriété MultiSelect du contrôle ListBox.
On peut alors récupérer les éléments sélectionnés, par exemple, à l'aide de cette procédure.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Dim Elem As Byte, txt As String txt = "Vous avez sélectionné " For Elem = 0 To lbData.ListCount - 1 If lbData.Selected(Elem) = True Then txt = txt & vbCrLf & "- " & lbData.List(Elem) End If Next MsgBox txt End Sub

---

Où lbData est le nom du contrôle ListBox.

Merci Philippe de te pencher à nouveau à mon problème
J'avais déjà essayé ce matin avec un ARRAY mais en vain
Je viens de tester ton code il fonctionne mais je galère à réussir le filtre :cry:

Bonjour,

Code:

---

Je viens de tester ton code il fonctionne mais je galère à réussir le filtre

---

J'ai rêvé où tu es bien développeur informatique ?

je suis en reconvertion pro depuis 5 mois donc j'apprends de jour en jour
Avant debut du mois j'avais jamais fait du VBA c'est pour ça que je galère comme fou :(