améliorer la fonction "filtre automatique"

[pascal21]

bonsoir
j'utilise la fonction "filtre automatique" pour lire un tableau
j'aimerais savoir si il est possible de coloriser les colonnes qui font l'objet d'un tri
ex: critères de la colonne A filtrés donc colonne A colorisée ou au moins la cellule sur laquelle la fonction filtre est instalée (dans mon tableau la cellule a5)
merci

 

[pascal21]

Re : améliorer la fonction "filtre automatique"

pour relancer merci

 

[MichelXld]

Re : améliorer la fonction "filtre automatique"

bonsoir Pascal

Cette procédure de notre ami @+Thierry pourra certainement t'aider

https://www.excel-downloads.com/threads/couleur-dans-les-filtres.37460/

'@+Thierry

Sub AutoFilterDetector() 
Dim i As Byte 
    With Feuil1 
    .Cells.Interior.ColorIndex = xlNone 
    
        If .FilterMode = True Then 
            With .AutoFilter.Filters 
                For i = 1 To .Count 
                    If .Item(i).On Then 
                        Feuil1.Columns(i).Interior.ColorIndex = 4 
                    End If 
                Next 
            End With 
        End If 
    End With 
End Sub

Bonne soirée
MichelXld