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

marmotte18 · 25 Octobre 2009

Bonjour,

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

Merci par avance

BOISGONTIER · 25 Octobre 2009

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

Bonjour,

Code:

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 · 25 Octobre 2009

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 · 25 Octobre 2009

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

Grâce à toi BOISGONTIER,

Je viens de trouver le code que je cherche :

Code:

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

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

marmotte18

XLDnaute Impliqué

BOISGONTIER

XLDnaute Barbatruc

marmotte18

XLDnaute Impliqué

marmotte18

XLDnaute Impliqué

Discussions similaires

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

marmotte18

XLDnaute Impliqué

BOISGONTIER

XLDnaute Barbatruc

marmotte18

XLDnaute Impliqué

marmotte18

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency