Mettre une variable critere filtre avancé

Résolu/Fermé

Critères

thyroox Messages postés 34 Date d'inscription jeudi 27 juillet 2017 Statut Membre Dernière intervention 25 février 2022 - 2 mai 2018 à 11:54
thyroox Messages postés 34 Date d'inscription jeudi 27 juillet 2017 Statut Membre Dernière intervention 25 février 2022 - 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
Vba range avec variable ✓ - Forum VB / VBA
Photo filtre gratuit - Télécharger - Retouche d'image
Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

thev Messages postés 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 681
2 mai 2018 à 13:23

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 jeudi 27 juillet 2017 Statut Membre Dernière intervention 25 février 2022 1
2 mai 2018 à 14:03

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 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 681
Modifié le 2 mai 2018 à 17:35

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 jeudi 27 juillet 2017 Statut Membre Dernière intervention 25 février 2022 1
30 mai 2018 à 15:36

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

Discussions similaires

Newsletters