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)