Bonjour,
Je récupéré le code VBA afin de colorier la colonne si celle-ci a été filtrée par un filtre auto. Je souhaite modifié ce code afin de colorier uniquement la cellule titre de la colonne. Ceci a été fait (cf. code ci-dessous).
Ce que je ne parviens pas, est de supprimer la couleur uniquement sur les cellules titre de colonne et non sur toute la feuille (car je ne veux pas retirer la couleur d'origine de la feuille, différent de blanc).
Merci de votre aide.
Ci-dessous le code VBA.
Ps: le msgbox n'affiche pas la couleur d'origine, dommage j'aurai bien voulu récupérer cette couleur pour la conserver. Si vous avez une idée aussi pour cela. merci.
code:
--------------------------------------------------------------------
Sub Couleur_sur_Filtres_QuandClic()
Dim x As Integer
Dim Ws As Worksheet
Set Ws = Worksheets("Feuil1")
With Ws
'Enlève les couleurs initiales
.Rows.Interior.ColorIndex = xlNone
'Vérifie si la feuille est en mode filtre automatique
If .FilterMode = True Then
'boucle sur les filtres de la feuille
With .AutoFilter.Filters
For x = 1 To .Count
'Colorie la colonne en jaune si le filtre est actif
MsgBox "toto" & Ws.Cells(x).Interior.ColorIndex
If .Item(x).On Then Ws.Cells(x).Interior.ColorIndex = 6
Next
End With
End If
End With
End Sub
--------------------------------------------------------------------
Je récupéré le code VBA afin de colorier la colonne si celle-ci a été filtrée par un filtre auto. Je souhaite modifié ce code afin de colorier uniquement la cellule titre de la colonne. Ceci a été fait (cf. code ci-dessous).
Ce que je ne parviens pas, est de supprimer la couleur uniquement sur les cellules titre de colonne et non sur toute la feuille (car je ne veux pas retirer la couleur d'origine de la feuille, différent de blanc).
Merci de votre aide.
Ci-dessous le code VBA.
Ps: le msgbox n'affiche pas la couleur d'origine, dommage j'aurai bien voulu récupérer cette couleur pour la conserver. Si vous avez une idée aussi pour cela. merci.
code:
--------------------------------------------------------------------
Sub Couleur_sur_Filtres_QuandClic()
Dim x As Integer
Dim Ws As Worksheet
Set Ws = Worksheets("Feuil1")
With Ws
'Enlève les couleurs initiales
.Rows.Interior.ColorIndex = xlNone
'Vérifie si la feuille est en mode filtre automatique
If .FilterMode = True Then
'boucle sur les filtres de la feuille
With .AutoFilter.Filters
For x = 1 To .Count
'Colorie la colonne en jaune si le filtre est actif
MsgBox "toto" & Ws.Cells(x).Interior.ColorIndex
If .Item(x).On Then Ws.Cells(x).Interior.ColorIndex = 6
Next
End With
End If
End With
End Sub
--------------------------------------------------------------------