Libellé commentaire = à une donnée d'une cellule

[stsym]

Bonjour,
Je souhaite créer dans une cellule un commentaire dont le libellé est issu d'une donnée présente dans une autre.
J'ai fais une recherche sur le site mais je n'ai rien trouvé.
d'avance merci pour votre aide
Cdt
StSYm

 

[Paritec]

Re : Libellé commentaire = à une donnée d'une cellule

Bonsoir stysm le forum
ton fichier en retour
a+
papou🙂

 

[stsym]

Re : Libellé commentaire = à une donnée d'une cellule

Bonjour Papou,

Je te remercie pour ta réponse rapide et qui correspond tout à fait
à ma demande.

Bonne journée
Stsym

 

[BOISGONTIER]

Re : Libellé commentaire = à une donnée d'une cellule

Bonjour,


Voir PJ

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([a2:a10], Target) Is Nothing Then
    With Target.Offset(, 1)
      If Target = "" Then
        If Not .Comment Is Nothing Then .Comment.Delete
      Else
       If .Comment Is Nothing Then .AddComment
       .Comment.Text Text:=Target.Value
       .Comment.Shape.TextFrame.AutoSize = True
      End If
     End With
   End If
End Sub

JB