VBA selection de critère conditionnel

[Rafilo13]

Bonjour a tous,

Je travaille sur un projet d'automatisation d'un fichier. Dans ma Macro je dois a un moment filtrer un tableau se situant dans une autre feuille voici mon code :

Sheets("Clients").Select
Selection.AutoFilter Field:=25, Criteria1:=Sheets("Acceuil").Range("C8")

Cependant pour mon critère j'aimerai que celui soit variable.

Si C8 = Aucun
Filtrer sur C7
Si C8 et C7 = Aucun
Filtrer sur C6

Si quelqu'un peu me proposer une solution ... Je vous remercie par avance.

Bonne journée a tous.

 

[Pierrot93]

Re : VBA selection de critère conditionnel

onjour,

essaye ceci :

Dim c As Range
With Sheets("Acceuil")
    If .Range("C7") = "Aucun" And .Range("C8") = "Aucun" Then
        Set c = .Range("C7")
        ElseIf .Range("C8") = "Aucun" Then Set c = .Range("C8")
        Else
            Exit Sub
    End If
End With
Sheets("Clients").AutoFilter Field:=25, Criteria1:=c.Value

non testé....

 

[Rafilo13]

Re : VBA selection de critère conditionnel

Je viens de voir ca marche impeccable. Merci beaucoup Pierrot93. Je vais juste rajouter la ligne pour que ca marche pour le cas C6. Encore merci et bonne journée.