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.
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
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...
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.
- Messages postés
-
13291
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 26 novembre 2020
748Dim 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 ftJe 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 > R0abinje pense préférable d'utiliser la méthode "brutale".