Mettre en place la couleur de fond jaune pour en-tête dans une table AutoFiltre l’aide de VBA dans Microsoft Excel
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