Bonjour,
Je voudrais faire un premier filtre sur la colonne2 pour masquer les valeurs égale à 1 ou 2 et un sur la colonne 3 pour masquer les valeurs vide.
j'ai essayé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Activesheet.ListObjects("TbSaisies").Range.AutoFilter Field:=2, Criteria1:<>"1", Criteria2:<>2", Operator:=xlOr, Field:=3, Criteria1:=""
Mais cela ne fonctionne pas, après Criteria, Excel veut "=" et non "<>"
Est-ce que quelqu'un peut m'aider ?

J'ai trouvé un code de Jacques Boisgontier qui permet le filtre inverse multicritères, mais sur une seule colonne et je n'arrive pas à déclarer la variable liste (j'ai essayé liste as object, as variant, as string rien ne fonctionne)
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
Sub FiltreInverseListe()
Dim f1 As Object, f2 As Object, d As Object, d2 As Object, c As Range, liste as ???
  Set f1 = Sheets("feuil1")
  Set d = CreateObject("scripting.dictionary")
  d.CompareMode = vbTextCompare
  liste = Array("paris", "lyon", "bordeaux")            ' Liste à ne pas sélectionner
  For Each c In liste: d(c) = "": Next c
  Set f2 = Sheets("feuil1")
  Set d2 = CreateObject("scripting.dictionary")     ' liste complémentaire
  d2.CompareMode = vbTextCompare
  For Each c In f2.Range("B2:B" & f2.[B65000].End(xlUp).Row)
   If Not d.exists(c.Value) Then d2(c.Value) = ""
  Next c
  ActiveSheet.Range("$A$1:$B$100").AutoFilter Field:=2, Criteria1:=d2.keys, Operator:=xlFilterValues
End Sub
Merci de votre aide