VBA selection de critère conditionnel

Rafilo13 · 29 Juin 2011

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 · 29 Juin 2011

Re : VBA selection de critère conditionnel

onjour,

essaye ceci :

Code:

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 · 29 Juin 2011

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.

VBA selection de critère conditionnel

Rafilo13

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

Rafilo13

XLDnaute Junior

Discussions similaires