Récupération d'un commentaire d'une cellule

[marmotte18]

Bonjour,

Comment faut-il procéder pour récupérer dans une variable, le commentaire mis dans la cellule A1 ?

Merci par avance

 

[BOISGONTIER]

Re : Récupération d'un commentaire d'une cellule

Bonjour,

Function RecupCommentaire(c)
   Application.Volatile
   If c.Comment Is Nothing Then
     RecupCommentaire = ""
   Else
     RecupCommentaire = Replace(c.Comment.Text, Chr(10), " ")
   End If
End Function

JB

 

[marmotte18]

Re : Récupération d'un commentaire d'une cellule

Bonjour BOISGONTIER,

Merci pour ta réponse rapide. Ton code est intéressant et instructif mais ne correspond pas tout à fait à mes attentes. Je n'ai pas été assez précis !

Mon souci est de récupérer directement dans une variable VBA, nommée MSG par exemple, le contenu du commentaire de la cellule A1.

 

[marmotte18]

Re : Récupération d'un commentaire d'une cellule

Grâce à toi BOISGONTIER,

Je viens de trouver le code que je cherche :

Sub essai()
msg = Cells(1, 1).Comment.Text
MsgBox msg
End Sub