Fonction If et Filtres automatiques VBA

**Hercule55** · 03/10/2018, 17h07

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

**Menhir** · 03/10/2018, 17h57

Envoyé par Hercule55

Quand je mets "Then" puis rien je souhaite justement qu'il ne se passe rien.

Dans ce cas, ne le mets pas.

Code :

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

    If Cells("Graph!A22") <> "" And Cells("Graph!A22") <> "All" Then .Range("A1:BE1").AutoFilter Field:=7, Criteria1:=Range("Graph!A22")

**Hercule55** · 04/10/2018, 09h41

Merci pour ta réponse.

Cependant j'ai essayé ton code mais j'obtiens le même message d'erreur : 'Argument ou appel de procédure incorrect'

...

Que faire ?

**Hercule55** · 04/10/2018, 10h25

J'ai trouvé !

Il suffisait d'utiliser "Range(...)" au lieu de "Cells(...)"

Code :

Code :

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

1
2
3
4
    If Range("Feuil1!A22") = "All" Then
    ElseIf Range("Feuil1!A22") = "" Then
    Else: .Range("A1:BE1").AutoFilter Field:=7, Criteria1:=Range("Feuil1!A22")
    End If