Visualiser les champs filtrés par couleur

[MJ13]

Bonjour à tous

Il y a quelques temps, Hervé que je salue, nous avait proposé une macro pour mettre en couleur les champs filtrés. Mais je ne le retrouve pas avec la fonction recherche du forum 😕


Quelqu'un l'aurait'il sous le coude ou sinon, comment le coder en VBA.

Merci d'avance 🙂.

 

[MJ13]

Re : Visualiser les champs filtrés par couleur

Re

C'est bon j'ai trouvé ici 😱:

https://www.excel-downloads.com/threads/une-couleur-pour-les-filtres.72018/

J'ai modifié le lien car , comme j'ouvre directement sur les derniers messages, chose que la plupart ne font pas, c'était le premier pour moi en haut , du coup on risquait de s'y perdre 🙂.

 

[MJ13]

Re : Visualiser les champs filtrés par couleur

Re

Bon, j'ai fait cela, c'est pas mal, merci Hervé 🙂.

Sub Filtre_Couleur()
'MJ adaptation code de Hervé
Rows("1:1").Interior.Color = RGB(255, 255, 255)
Filtre = ActiveSheet.FilterMode
If Filtre = "Faux" Then GoTo suite
Dim i As Byte
With ActiveSheet.AutoFilter
    For i = 1 To .Filters.Count
        Cells(1, i).Interior.ColorIndex = xlNone
        If .Filters(i).On = True Then
            Cells(1, i).Interior.ColorIndex = 35
        End If
    Next i
End With
suite:
End Sub