une couleur pour les filtres

[pascal21]

Private Sub Worksheet_Calculate()
Range("b8").Select
If ActiveSheet.FilterMode Then
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else:
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
End Sub

bonsoir
avec ce bout de code recupéré sur un post de celeda et proposé par franck17
il est possible d'avoir une cellule qui change de couleur si un filtre est appliqué
hors dans mon classeur j'ai plusieurs filtres et ce code ne fait que signaler que un filtre a été activé
est-il possible de faire une modif pour que b8 change de couleur uniquement si le filtre de la colonne B est activé
idem pour la colonne c en c8 colonne d en d8
enfin!! que chaque filtre est sa cellule qui change de couleur
merci

 

[pascal21]

Re : une couleur pour les filtres

bonjour
pour faire remonter
merci

 

[Hervé]

Re : une couleur pour les filtres

bonjour

une proposition en piece jointe

salut

 

[Celeda]

Re : une couleur pour les filtres

Bonjour,

de mieux en mieux!!!

zoli, zoli!!!

bravo!! merci Hervé.


Et la suite de la série "les Filtres en couleur."......

pour bientôt !!lol!!!!

 

[pascal21]

Re : une couleur pour les filtres

bonjour Herve; Celeda; le forum
merci ça fonctionne parfaitement

 

[snawbel]

Re : une couleur pour les filtres

Bonjour Hervé,

J'ai fait un copier coller du code dans ma feuille vba.
Que dois-je faire ensuite car il faut toujours que j'appuie sur la petite flèche(play) à chaque fois pour que cela fonctionne.
Dois je faire une macro ?
Merci d'avance de pour l'aide

 

[snawbel]

Re : une couleur pour les filtres

voici le fichier que j'ai fait