Commentaires visibles dans une liste
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 : Alain Vallon
Mots clefs associés à cette page : commentaire, liste
- Vous devez vous identifier ou créer un compte pour écrire des commentaires
