Lister les critères actifs

Celio -
Celio - 12 août 2018 à 12:52

Bonjour à tous,

Après avoir écumé, sans succès, les forums pour trouver une réponse, je me permets de poster ma requête.

Pour préciser un peu le titre, et donc ma question, j'aimerais trouver l'astuce pour lister, dans une MsgBox, les filtres actifs et les critères correspondants d'un tableau.

Exemple:

Filtre actif sur "Colonne 1", critère filtrant "JAUNE"

Filtre actif sur "Colonne 6", critère filtrant "CAMION".

Etc.

En vous remerciant d'ores et déjà pour votre aide.

Belle journée à tous.

Afficher la suite

1 réponse

Réponse 1 / 1
jordane45 Messages postés 30426 Date d'inscription Statut Modérateur Dernière intervention 4 830
Bonjour,

Tu dois pouvoir utiliser une fonction de ce genre
```
' r = plage de cellules à vérifier (si le titre de tes colonnes filtrées se trouve en A1:E1 par exemple)
Function getFilters(r As Range) As String
  Dim Sh as WorkSheet
  Dim strFiltres  as String
  Set Sh = ActiveSheet
  strFiltres = ""

'Si le mode "filtre" est activé sur la feuille
If Sh.FilterMode Then
    'On boucle sur les filtres pour voir ceux qui sont actifs
    For i = 1 To Sh.AutoFilter.Filters.Count
       If Sh.AutoFilter.Filters(i).On Then
          strFiltres = strFiltres & r(i).Value & ", "
       End If
    Next i

    'On supprime la dernière virgule
    strFiltres = Left(strFiltres, Len(strFiltres) - 2) 
End If

'on retourne le resultat
getFilters = strFiltres

End Function
```
Et pour l'utiliser...
```
listeFiltres = getFilters(Range("A1:E1"))
```
0
1. Celio
  
  Bonjour,
  
  Merci beaucoup pour cette prompte réponse.
  
  Je ne suis malheureusement qu'un bricoleur sur VBA, je n'ai donc sans doute pas toutes les connaissances nécessaires à la bonne application de votre solution. Je vous prie de m'excuser pour cela.
  
  Voilà ce que j'ai fait:
  
  J'ai créé un module pour y coller votre fonction.
  Puis j'ai appelé cette fonction dans mon code ainsi:
  
  MsgBox listeFiltres = getFilters(Range("A1:Z1"))
  
  Le message renvoyé est ou "Faux" ou "Vrai, selon que, respectivement, mon tableau est filtré ou non.
  
  Merci encore pour votre aide. Bien à vous.
  
  Celio
  
  0
2. jordane45 Messages postés 30426 Date d'inscription Statut Modérateur Dernière intervention 4 830
  
  listeFiltres = getFilters(Range("A1:Z1")) MsgBox listeFiltres
  
  0
3. Celio
  
  Magnifique! Merci.
  
  Première partie résolue.
  
  Le critère filtrant est-il aussi affichable selon vous?
  
  Si je reprends mon exemple, le résultat renvoyé est actuellement:
  
  Colonne 1, Colonne 6
  
  Peut-on obtenir:
  
  Colonne 1, critère filtrant "JAUNE"
  Colonne 6, critère filtrant "CAMION"
  
  (A noter que plusieurs critères peuvent filtrer la Colonne 1 (Exemple: "JAUNE", mais aussi "BLEU")).
  
  Encore merci pour votre aide. C'est la classe, je n'avais rien trouvé jusqu'ici.
  
  Celio
  
  0

Lister les critères actifs

1 réponse

Discussions similaires

Newsletters