Discussion :

[pmdec]

Bonsoir,

Quelqu'un sait-il s'il est possible de changer la couleur de la petite flèche noire vers le bas qui passe au bleu quand le filtre est activé (avec beaucoup de colonnes, il est presque impossible de voir la différences entre les flèches bleues et noires, et l'attente du message quand la souris est sur la flèche est trop fastidieuse ...).

Merci d'avance,
PM

[Benoit Schwob]

Hello

Cette couleur bleue semble codée en dur dans Excel...
C'est un peu bête, c'est vrai, parce que ça tue souvent les yeux de repérer la différence avec le noir.

Une solution est de colorer TOUTE la cellule d'en-tête de la colonne où il y a un filtre.

Pour ça :
- tu boucles sur les filtres de la feuille active (on ne peut avoir que 0 ou 1 plage filtrée sur une feuille, ouf) ;
- la cellule d'en-tête, tu la repères facilement puisque sa ligne c'est AutoFilter.Range.Row et sa colonne s'incrémente de 1 à chaque tour ;
- la propriété .On te dit s'il y a un filtre ou non.

Ca donne à peu près ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim F As Filter
    Dim Col As Long, Row As Long
 
    Col = 0
    Row = ActiveSheet.AutoFilter.Range.Row
 
    For Each F In ActiveSheet.AutoFilter.Filters
        Col = Col + 1
        If F.On Then
         Cells(Row, Col).Interior.Color = vbRed
        Else
         Cells(Row, Col).Interior.ColorIndex = xlColorIndexNone
        End If
    Next F

Reste à déclencher ça sur l'événement Workbook_SheetCalculate, avec un brin de cosmétique autour :
- il y a un paramètre sur cet événement, qui peut servir à voir s'il y a un filtre sur la feuille (.AutoFilterMode)...
- bloquer les événements autour de ta macro...

Benoît

[pmdec]

Bonsoir,

GÉNIAL !

Merci beaucoup, c'est simple et efficace : impeccable !