Mettre une variable critere filtre avancé

Résolu
thyroox Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   -  
thyroox Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

thev Messages postés 1981 Date d'inscription   Statut Membre Dernière intervention   711
 
Bonjour,

Il suffit de définir une variable objet de type Range, comme ceci

Dim plage_critère as Range

set 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

1
thyroox Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci Thev de votre réponse,


Je me suis rendu compte que je m'étais mal expliqué. Je souhaite renseigner directement un critère ou une variable au lieu d'une plage de cellule.

Comme par exemple :

Dim ma_variable as Variant

ma_variable = "uncritère"
0