Bonjour a tous,
J'avais déjà soliciter le forum pour le problème qui suit, mais je n'arrive pas a adapter la solution qui m'a étais proposé.
Dans mon projet je cherche a un moments a filtrer a partir d'une première feuille un tableau se trouvant sur une feuille 2.
Cependant ma cellule critère doit être variable.
SI D13<> "Aucun" ma cellule de critère est D13
SI D13 = "Aucun" et que D11<> "Aucun" ma cellule de critère est D11
SI D13="Aucun et que D11="Aucun" ma cellule de critère est D9
Voici la macro que l'on ma proposé (j'ai juste modifier les cellules) :
Dim c As Range
With Sheets("Vision Siren")
If .Range("D13") = "Aucun" And .Range("D11") = "Aucun" Then
Set c = .Range("D9")
ElseIf .Range("D11") = "Aucun" Then Set c = .Range("D9")
Else
Exit Sub
End If
End With
Sheets("D1ST).AutoFilter Field:=11, Criteria1:=c.Value
Cependant vu que m'etais mal expliquer la macro ne repondais pas a toutes mes attentes j'ai donc desider d'essayer de la modifier mais bien evidement sans succès.
Mon Code :
Sheets("D1ST").Select
Dim c As Range
With Sheets("Vision Siren")
If .Range("D13") <> "Aucun" Then Set c = .Range("D13")
ElseIf .Range("D13") = "Aucun" Then Set c = .Range("D11")
ElseIf .Range("D13") = "Aucun" And .Range("D11") = "Aucun" Then Set c = .Range("D9")
Else
Exit Sub
End If
End With
Sheets("D1ST").AutoFilter Field:=11, Criteria1:=c.Value
Quand j'essaye de l'executer il apparait une erreur "Else sans If".
Si quelqu'un pouvais m'aider. Je vous remercie par avance.
Bonne journée