XL 2021 Visibilité filtre automatique

[sellig 29]

Bonjour,
J'aurais souhaité que la cellule dans laquelle le filtre est utilisé se remplisse d'une couleur (rouge) afin de visualiser rapidement la ou les colonnes qui sont filtrées.
Merci par avance pour votre aide!

 

[job75]

Bonjour le forum,

Une solution très simple avec cette fonction VBA dans Module1 :

Function FiltreActif(n%)
FiltreActif = ActiveSheet.AutoFilter.Filters(n).On
End Function

Dans la feuille formule de la MFC sur B4:F4 :

=FiltreActif(EQUIV(B4;$B4:$F4;0))

Le tableau peut être déplacé n'importe où Edit : et on peut modifier l'ordre des colonnes.

A+

 

[sellig 29]

Bonjour le forum,

Une solution très simple avec cette fonction VBA dans Module1 :

Function FiltreActif(n%)
FiltreActif = ActiveSheet.AutoFilter.Filters(n).On
End Function

Dans la feuille formule de la MFC sur B4:F4 :

=FiltreActif(EQUIV(B4;$B4:$F4;0))

Le tableau peut être déplacé n'importe où Edit : et on peut modifier l'ordre des colonnes.

A+

Merci beaucoup, je vais adopter votre version car elle apparait plus "réactive" que celles qui mont été proposées précédemment (bien que satisfaisantes aussi).
J'étais un adepte du site cela fait quelques années et vous m'aviez déjà brillamment dépanné, vous êtes toujours là, fidèle au poste!! Bravo et encore merci.