couleur filtre automatique

[poipoi]

bonjour à tous
je voulais savoir s'il existe une possibilté de changer la couleur du petit triangle bleu quand le filtre auto est activé.. le rouge serait pour moi plus voyant..
quelqu'un a une idée??
merci d'avance à vous
et bonne journée

 

[Celeda]

Bonjour,

J'avais eu à l'époque une demande à peu près semblable et je me rendis à l'évidence que cela n'était pas possible :

cette fonctionnalité est inchangeable : il faut demander à Bill avant qu'il parte à la retraite, de la modifier .

Ne connaissant pas ton besoin exact, voici une macro - AutoFilterDetector - que Thierry avait préparé pour localiser où était placé le filtre (en effet, j'avais une base de données de plus de 50 colonnes et on ne savait plus où se trouvait le filtre) :

le code affiche l'étiquette (ou les) où se trouve le filtre

(d'ailleurs, on pourrait l'améliorer, en annulant l'étiquette quand le filtre est de nouveau sur tous, soit en faisant disparaître
le commentaire)

à placer dans un module
Option Explicit

Sub AutoFilterDetector()
Dim WS As Worksheet
Dim Cmt As Comment
Dim RangeFiltered As Range
Dim L As Integer
Dim C As Byte

Set WS = ActiveSheet 'ou bien = Worksheets('NomDeLaFeuille')

With WS

For Each Cmt In WS.Comments
Cmt.Delete
Next

If .FilterMode = True Then
With .AutoFilter
Set RangeFiltered = .Range
L = RangeFiltered.Row
With .Filters
For C = 1 To .Count
If .Item(C).On Then
With WS.Cells(L, C)
.ClearComments
.AddComment
.Comment.Visible = True
.Comment.Text Text:=WS.AutoFilter.Filters.Item(C).Criteria1
.Comment.Shape.TextFrame.AutoSize = True
End With
End If
Next
End With
End With
End If
End With
End Sub

Voilà si cela peut t'aider...
(j'espère que le copié collé du code va passer :whistle: ) Yes!!! il est passé 🙂 )

Celeda

Message édité par: Celeda, à: 20/06/2006 11:55

 

[poipoi]

merci bcp.. je vais installer ça...
bon après-midi à tous