Discussion :

[nsqualli]

Bonjour,

SVP, j'ai besoin de savoir comment faire pour ajouter un commentaire dans une cellule qui contient deja un.

Merci

[DidierLoche]

Bonsoir,

Tu trouveras facilement la réponse en enregistrant une macro :
Vas dans "Outils", puis "Macro" en enfin "Nouvelle macro ..."
Pendant l'enregistrement, tu créé un commentaire.
Tu arrêtes la macro et tu regardes le résultat sur VBA.
Tu dois obtenir quelque chose qui ressemble à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D8").Comment.Text Text:="Didier:" & Chr(10) & "ceci est mon commentaire"

Si maintenant tu veux modifier le commentaire, tu le récupères comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim texte As String
texte = Range("D8").Comment.Text

Il ne te reste plus qu'à modifier le string "texte" et à modifier le commentaire de la cellule. Dans l'exemple suivant, je modifie le commentaire de la cellule A8 en passant toutes les lettres en majuscule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim texte As String
texte = Range("D8").Comment.Text
texte = Format(texte, ">")
Range("D8").Comment.Text Text:=texte

ce qui peut s'écrire sur une seule ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D8").Comment.Text Text:=Format(Range("D8").Comment.Text, ">")

Bonne soirée,

Didier