Mettre une variable critere filtre avancé Résolu

Question

Bonjour,

J'aimerai intégrer une variable dans le code du filtre avancé :

Workbooks("TEST.xlsx").Sheets("Feuil1").Range("A4:AN1048576").AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("A1:A4"), CopyToRange:=Range( _
        "A8"), Unique:=False

Ainsi au lieu de CriteriaRange:=Range("A1:A4"), je voudrai quelques choses de ce style CriteriaRange:=mavariable


Savez vous comment je peux faire ? 


Merci d'avance

thev · Answer

Bonjour,

Il suffit de définir une variable objet de type Range, comme ceci
Dim plage_critère as Rangeset plage_critère =  Range("A1:A4")Workbooks("TEST.xlsx").Sheets("Feuil1").Range("A4:AN1048576").AdvancedFilter _        Action:=xlFilterCopy, CriteriaRange:=plage_critère, CopyToRange:=Range( _        "A8"), Unique:=False

thev · Answer

Dans ce cas, il ne faut pas utiliser la méthode "AdvancedFilter" mais "AutoFilter"' .
Ci-dessous exemple avec l'opérateur "=":
   
Dim ma_variable As Variant
    
    ma_variable = "uncritère"
    With Workbooks("TEST.xlsx").Sheets("Feuil1")
        If Not .AutoFilterMode Then .Range("A4:AN1048576").AutoFilter
        .Range("A4:AN1048576").AutoFilter Field:=1, Criteria1:="=" & ma_variable
        '............................
        
        .AutoFilterMode = False 'suppression mode filtre
    End With

Mettre une variable critere filtre avancé

2 réponses

Discussions similaires

Newsletters