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