Mettre une variable critere filtre avancé

Résolu

Critères

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 - 30 mai 2018 à 15:36

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:

Vba filtre critère variable
Photo filtre 7 gratuit - Télécharger - Retouche d'image
Vba range avec variable ✓ - Forum VB / VBA
Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
Filtre teams - Accueil - Visio
Filtre whatsapp - Accueil - Messagerie instantanée

2 réponses

Réponse 1 / 2

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

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"

Réponse 2 / 2

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

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

thyroox Messages postés 34 Date d'inscription Statut Membre Dernière intervention 1

Bonjour,

Merci beaucoup pour votre réponse, c'est ce qu'il me fallait.

Discussions similaires

MOYENNE.SI.ENS avec critère intervalle de date

Formule : Nb.si.ens(plage1;non vide...)

nb.si.ens plusieurs colonnes

Récupérer des données d'un tableau vers un autre

"NB.SI" cellules non vides

Somme.si avec critère inférieur ou égal mois

Votre réponse

Discussions similaires