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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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