Bonjour,

J'essaye depuis un moment de combiner des fonctions "If" avec des AutoFilter en VBA mais je rencontres quelques problèmes.
J'essaye de filtrer une feuille en prenant des valeurs d'une liste déroulante depuis une autre feuille.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
' Filtrage 1
    If Cells("Graph!A22") = "" Then
    ElseIf Cells("Graph!A22") = "All" Then
    Else: .Range("A1:BE1").AutoFilter Field:=7, Criteria1:=Range("Graph!A22")
    End If
 
' Filtrage 2
    If Cells("Graph!A25") = "" Then
    ElseIf Cells("Graph!A25") = "A+B" Then .Range("A1:BE1").AutoFilter Field:=9, Criteria1:=Array("A", "B", "="), Operator:=xlFilterValues
    Else: .Range("A1:BE1").AutoFilter Field:=9, Criteria1:=Range("Graph!A25")
    End If
Quand je mets "Then" puis rien je souhaite justement qu'il ne se passe rien.
Les AutoFilter seuls marchent bien mais il y doit y avoir une erreur d'écriture sur les If.

Si quelqu'un a une idée je suis preneur !
Merci