Fonction If et Filtres automatiques VBA

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:

---

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

Citation:

---

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:

---

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

---

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 ?

J'ai trouvé !

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

Code :

Code:

---

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

---

Résolu ;) !

Citation:

---

Envoyé par Hercule55

Résolu ;) !

---

A voir ta structure If, c'est un avis que je ne partage pas... :?

En tout cas ça marche ...

Des idées d'amélioration ?

Citation:

---

Envoyé par Hercule55

Des idées d'amélioration ?

---

Voir le code que j'ai donné (du moins, la partie sur la structure If).