Discussion :

[scoubi77]

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

[scoubi77]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[scoubi77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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