Commentaires visibles dans une liste

Dans une cellule Données>Validation>Liste... Est-il possible de faire en sorte que les commentaires des cellules 'sources' apparaissent quand on sélectionne un item dans la liste déroulante ?

En supposant : Une plage nommée "List" quelque part dans le classeur et comprenant (ou pas) des annotations
Ta liste de validation en A1 de "Feuil1"
Dans le module de "Feuil1" :

Private sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$1" Then exit sub
 x = Application.[List].Find(Target.Value).Address
 With Target
 .ClearComments
 .AddComment
 On Error Resume Next
 .Comment.Text Text:=Range(x).Comment.Text
  If Err.Number = 91 Then .ClearComments
 .Comment.Shape.TextFrame.AutoSize = True
 End With
 end sub

Auteur :

Mots clefs associés à cette page : ,