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
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