Autofilter avec une variable Object
Bonjour tout le monde,
Je suis tout nouveau sur le forum et ceci est mon premier post. Je suis en train de développer un outil pour mon entreprise et j'utilise notamment des filtres via VBA. J'ai réalisé un filtre via une variable "object" dont voici le code (partiel) :
Code:
1
2
3
4
5
6
7
8
| Set jx = CreateObject("Scripting.dictionary")
With WSCG600
For j = 8 To .Range("p" & Rows.Count).End(xlUp).Row
jx(.Range("p" & j).Value) = ""
Next j
End With
Rows("2:2").AutoFilter Field:=1, Criteria1:=jx.keys, Operator:=xlFilterValues |
Dans ma feuille WSCG600 j'ai une liste de termes dont le nombre est variable. Jusque là je n'ai pas de problème, le code fonctionne parfaitement.
Cependant je voudrais faire exactement la même manipulation mais avec le critère "différent de", j'ai donc codé de cette façon :
Code:
1
2
3
4
5
6
7
8
| Set jx = CreateObject("Scripting.dictionary")
With WSCG600
For j = 8 To .Range("p" & Rows.Count).End(xlUp).Row
jx(.Range("p" & j).Value) = ""
Next j
End With
Rows("2:2").AutoFilter Field:=1, Criteria1:="<>" & jx.keys, Operator:=xlFilterValues |
Et là, le code ne fonctionne plus. Est-ce que quelqu'un pourrait m'aider??
Je vous remercie !
