Mettre une variable critere filtre avancé

Résolu
thyroox Messages postés 40 Statut Membre -  
thyroox Messages postés 40 Statut Membre -
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

2 réponses

  1.
    thev Messages postés 2008 Date d'inscription   Statut Membre Dernière intervention   722
     
    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
    1. thyroox Messages postés 40 Statut Membre 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

Discussions similaires

MOYENNE.SI.ENS avec critère intervalle de date
clman -
Vaucluse -

1 réponse
Formule : Nb.si.ens(plage1;non vide...)
Morgan13300 -
Morgan13300 -

2 réponses
nb.si.ens plusieurs colonnes
FREDINE66 -
FREDINE66 -

5 réponses
Récupérer des données d'un tableau vers un autre
Jeny.Jeny -
Vaucluse -

3 réponses
"NB.SI" cellules non vides
CR34 -
CR34 -

2 réponses
Somme.si avec critère inférieur ou égal mois
Marco -
Vaucluse -

1 réponse