XL 2021 Visibilité filtre automatique

job75 à dit:

Bonjour le forum,

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

VB:

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

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

Code:

=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+

Cliquez pour agrandir...