Récupérer les valeurs d'un filtre

Fermé
R0abin Messages postés 3 Date d'inscription lundi 9 novembre 2020 Statut Membre Dernière intervention 13 novembre 2020 - 9 nov. 2020 à 13:41
R0abin Messages postés 3 Date d'inscription lundi 9 novembre 2020 Statut Membre Dernière intervention 13 novembre 2020 - 13 nov. 2020 à 12:50
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,
A voir également:

2 réponses

yg_be Messages postés 22710 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 1 474
9 nov. 2020 à 17:51
bonjour,
"récupérer": où, pour quoi en faire?
0
yg_be Messages postés 22710 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 1 474
9 nov. 2020 à 18:14
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
0
R0abin Messages postés 3 Date d'inscription lundi 9 novembre 2020 Statut Membre Dernière intervention 13 novembre 2020
10 nov. 2020 à 15:32
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 !
0
yg_be Messages postés 22710 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 1 474 > R0abin Messages postés 3 Date d'inscription lundi 9 novembre 2020 Statut Membre Dernière intervention 13 novembre 2020
10 nov. 2020 à 15:47
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".
0
R0abin Messages postés 3 Date d'inscription lundi 9 novembre 2020 Statut Membre Dernière intervention 13 novembre 2020
13 nov. 2020 à 12:50
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.
0