Discussion :

[jmh51]

Bonjour à tous,

Après de longues et vaines recherches, je m'en remets à vos connaissance...

Je voudrais bien programmer en VBA un filtre sur une colonne mais avec plusieurs critères... 2 ou 3 par exemple...

J'ai déjà essayé en concaténant plusieurs variables textes, mais ça foire...

Donc, si quelqu'un pouvait m'éclairer...

[delphine35]

tu as essayé avec AdvancedFilter ?

Un truc dans le style :

Code :

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

1
2
    ActiveSheet.Range("$A$1:$D$15").AutoFilter Field:=2, Criteria1:=Array("12", _
        "25", "63"), Operator:=xlFilterValues

Pensez au "enregistrer une macro"

[jmh51]

Déjà merci pour ton aide, mais...

Avec Advanced filter, je ne vois pas comment faire...

J'étais parti avec ta solution, mais le problème est de programmer ce qu'il y a dans le Array... en sachant que le nombre et la valeur des critères est variable, bien sûr...

Sinon, ce serait trop simple...

[delphine35]

Donne nous plus de details !! Qu'est ce que tu veux faire ... exactement

[jmh51]

Pour reprendre ton exemple, je dois filtrer un tableau comme le tien...
Mais ce filtre est inclus dans une macro qui fait un tas choses avant et après ce fameux filtre...
Comme je disais plus haut, le nombre et la valeur des critères ne sont pas connus au départ...
C'est l'utilisateur qui les choisit dans une Listbox...
Me suis-je fais comprendre ?

[delphine35]

Voili, voilu ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Dim tableau(1 To 100) As Variant
 
nb = UserForm1.ListBox1.ListCount
 
j = 1
For i = 0 To nb - 1
 
If UserForm1.ListBox1.Selected(i) Then
   tableau(j) = UserForm1.ListBox1.List(i)
   j = j + 1
End If
Next i
 
Worksheets(1).Range("$A$1:$D$15").AutoFilter Field:=2, Criteria1:=tableau, Operator:=xlFilterValues

[jmh51]

Ca marche....

Merci beaucoup, Delphine35... Si je pouvais, je t'embrasserais...

Tu m'ôtes une fameuse épine hors du pied...

Encore merci...

[amaryllis]

Merci beaucoup Delphine, cela fait pas mal de temps que je cherche moi aussi!