Question:

Lors du filtrage d’une colonne, la ligne d’en-tête doit être mise en évidence avec une couleur de fond jaune

Réponse:

Insérez le code suivant dans les modules appropriés.

Placez le code ci-dessous dans le module standard.

Private Sub Worksheet_Calculate()

Dim flt As Filter

Dim intCol As Integer

For Each flt In ActiveSheet.AutoFilter.Filters

intCol = intCol + 1

If flt.On Then

Cells(1, intCol).Interior.ColorIndex = 6

Else

Cells(1, intCol).Interior.ColorIndex = xlColorIndexNone

End If

Next flt

End Sub