Récupérer les valeurs d'un filtre

Signaler
Messages postés
3
Date d'inscription
lundi 9 novembre 2020
Statut
Membre
Dernière intervention
13 novembre 2020
-
Messages postés
3
Date d'inscription
lundi 9 novembre 2020
Statut
Membre
Dernière intervention
13 novembre 2020
-
Bonjour à tous,

J'essaie désespéremment depuis plusieurs jours de trouver une solution pour récupérer les valeurs d'un filtre. Voir photo ci-dessous.


J'aimerais récupérer les valeurs encadrées en rouge. Savez-vous si c'est possible ? À force de chercher sans trouver la solution je commence à me poser la question.

Merci de votre aide,

2 réponses

Messages postés
13291
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 novembre 2020
748
bonjour,
"récupérer": où, pour quoi en faire?
Messages postés
13291
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 novembre 2020
748
un exemple:
Dim fl As Worksheet, ft As Filter, sv
Set fl = ActiveSheet
For Each ft In fl.AutoFilter.Filters
     For Each sv In ft.Criteria1
        Debug.Print sv
     Next sv
Next ft
Messages postés
3
Date d'inscription
lundi 9 novembre 2020
Statut
Membre
Dernière intervention
13 novembre 2020

Bonjour yg_be,

Je souhaite récupérer ces critères pour les mettre dans une combobox et la seule option que j'ai trouvé jusqu'ici c'est de lire toutes les lignes de mon fichier et d'en sortir une liste sans doublons, un peu brutale comme solution...

Je vais tester ta solution, merci !
Messages postés
13291
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 novembre 2020
748 >
Messages postés
3
Date d'inscription
lundi 9 novembre 2020
Statut
Membre
Dernière intervention
13 novembre 2020

si tu as beaucoup de valeurs différentes, la liste des critères n'en récupèrera qu'une partie.
je pense préférable d'utiliser la méthode "brutale".
Messages postés
3
Date d'inscription
lundi 9 novembre 2020
Statut
Membre
Dernière intervention
13 novembre 2020

Je n'ai pas réussi à faire fonctionner ton code.

Malheureusement je me rends compte que l'application que je veux réaliser est beaucoup plus adaptée à une structure de base de données et cela dépasse mes compétences.