Modifier couleur onglet de filtrage tableau excel

[m.gonzalez]

Bonjour à tous,

J'ai un problème de vision et de distinction entre le noir et le bleu. Quand j'active la fonction de filtrage sur un tableau excel, il apparait de petit onglets en tête de colonne qui permettent de filtrer justement les données en fonction d'un critère. Lorsque ce filtrage est activé, la colonne sur laquelle le paramètre de filtrage a été choisi voit son onglet passer du noir au bleu.. Et c'est alors que le problème se pose : je n'arrive plus à savoir quelle colonne a servi au tri... et je suis obligé de repasser tous les onglets à l'interrogatoire....
Perte de temps qu'il serait possible d'éliminer si je pouvais modifier la couleur de repérage de cet onglet de filtrage en la mettant en rouge, par exemple. Quelqu'un saurait-il comment procéder ??

Merci d'avance

Michel

[corona]

Bonjour Michel,
J'ai le même soucis que toi pour distinguer le bleu du noir, heureusement que depuis la version 2007, on n'a plus ce problème.
A ma connaissance c'est impossible de modifier cette couleur sauf à changer dans les settings de Windows.
Par contre, en faisant une recherche sur le Web site d'ozgrid, je suis tombé sur ce code à placer dans
l'objet feuille .
Je suppose que avec une petite modification du code il doit être possible de le placer dans ThisWorkBook mais je n'ai pas cherché plus loin.
Cette procédure met en couleur la cellule où se trouve le filtre activé.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_Calculate()
Dim lFilt As Long, lFiltArrows As Long
Dim lFiltRow As Long
 
    On Error Resume Next
    Application.EnableEvents = False
    lFiltRow = Me.AutoFilter.Range.Row
    lFiltArrows = Me.AutoFilter.Filters.Count
 
    Range(Cells(lFiltRow, 1), Cells(lFiltRow, _
        lFiltArrows)).Interior.ColorIndex = xlNone
 
        If Me.FilterMode = True Then
            For lFilt = 1 To lFiltArrows
                If Me.AutoFilter.Filters.Item(lFilt).On Then
                    Cells(lFiltRow, lFilt).Interior.ColorIndex = 46
                End If
            Next lFilt
        End If
 
    Application.EnableEvents = True
    On Error GoTo 0
End Sub