Fonction Champactif() d'un filtre automatique

Sur l'exemple on colorie les titres de la BD des champs sélectionnés dans le filtre automatique.

-Créer un module avec Insertion/Module
-Alt +F11 puis Insertion/Module

Function ChampActif(c)
  Application.Volatile
  ChampActif = Sheets(Application.Caller.Parent.Name).AutoFilter.Filters.Item(c.Column -
  Sheets(Application.Caller.Parent.Name).Range("_FilterDataBase").Column + 1).On
End Function

Mise en forme conditionnelle

-Sélectionner les titres(A6:G6)
Format/Mise en forme cond/La formule est
=ChampActif(A6)

Fonction ChampActif.xls