Cocher avec un Array qui contient des variables dans un filtre

Bonsoir à tous,

Je voudrais cocher certains items dans un filtre d'une feuille.

J'ai vue que le formatage de la liste est de ce type en utilisant l'enregistrer de macro.

Code:

---

Feuil2.Range("A1" & ":AL" & zz).AutoFilter , Field:=fg, Criteria1:=Array("1", "2", "3"), Operator:=xlFilterValues

---

donc je dois constituer une variable qui serait formaté comme ceci "1", "2", "3"

Donc le but pour mon projet est de récupérer les éléments qui sont cochés dans une liste box pour constituer une variable message que je pourrais ensuite utiliser dans le Array pour cocher ces derniers dans le filtre :

Code:

---

1 2 3 4 5 6 7 8 9

tt = ListBox2.ListCount - 1 mess = "" For a = 0 To tt Step 1 If ListBox2.Selected(a) = True Then u = ListBox2.List(a) mess = mess & u & "," & " " End If Next

---

Mon problème est que je n'arrive pas à reproduire une variable message comme ceci "1", "2", "3"

Merci par avance pour vos aides

Bien cordialement

Scoubi

Bon j'ai un peu avancé, j'ai modifié mon code comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

mess = "" For a = 0 To tt Step 1 If ListBox2.Selected(a) = True Then u = ListBox2.List(a) mess = mess & Chr(34) & u & Chr(34) & "," & " " End If Next   messa = Right(mess, Len(mess) - 1) ' comme on a ""1", "2", "3" je supprime le premier caractère Message = Left(messa, Len(messa) - 2) je supprime les deux dernier caractères   Feuil2.Range("A1" & ":AL" & zz).AutoFilter , Field:=fg, Criteria1:=Array(Message), Operator:=xlFilterValues

---

ma variable message est bien sous la forme "1", "2", "3"

mais hélas ça ne fonctionne pas grrr et si j'écris :

Code:

---

Feuil2.Range("A1" & ":AL" & zz).AutoFilter , Field:=fg, Criteria1:=Array("1", "2", "3"), Operator:=xlFilterValues

---

La par contre j'ai bien 1,2,3 de sélectionné dans le filtre !!!

Quelqu'un aurait il une idée ?

Bonjour à tous j'ai trouvé !!!

J'ai utilisé dans la boucle qui vérifie les éléments cochés de la liste box un tableau virtuel dans lequel je récupère les valeurs

Code:

---

1 2 3 4 5 6 7 8 9 10 11

tt = ListBox2.ListCount - 1 n = 0 Dim b() For a = 0 To tt Step 1 If ListBox2.Selected(a) = True Then u = ListBox2.List(a) n = n + 1: ReDim Preserve b(1 To n) b(n) = Me.ListBox2.List(a) End If Next Feuil2.Range("A1" & ":AL" & zz).AutoFilter , Field:=fg, Criteria1:=b, Operator:=xlFilterValues

---

et sa marche, j'ai bien tous les critères sélectionnés dans mon filtre.

Merci à vous tous