Discussion :

[logica]

Hi,

J'ai une feuille Excel avec des Commentaires insérés dans certaines cellules.
Comment faire en VBA pour récupérer le text de ces cellules.

Je n'arrive pas à coder la propriété Comment.Text dans du VBA

Merci de votre aide
cyril

[SfJ5Rpw8]

il faut d'abors créer le commentaire :

Code :

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

Range("A1").AddComment

aprés tu peu en modifier le texte :

Code :

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

Range("A1").Comment.Text "ET un commentaire dans cellule A1"

[logica]

Hello,

Je suis d'accord avec ton premier code pour ajouter à par qu'il faut ajouter la chaine en fin

Code :

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

Range("A1").AddComment "forfait"

Cependant, moi je veux restituer la valeur du commentaire dans un message par exemple.

Pour info, le code est:

Code :

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

Msgbox Range("A1").Comment.Text

Merci pour ton aide

[zazaraignée]

Salut

As-tu essayé de placer le contenu du commentaire dans une variable de type String?

Code :

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

1
2
Dim maVar As String
maVar = Range("A1").Comment.Text

[SfJ5Rpw8]

et :

Code :

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

1
2
3
 
Dim maVar As String 
maVar = Range("A1").Comment.Shape.OLEFormat.Object.Text

[logica]

Une erreur arrive lorsqu'il n'y a pas de commentaire !

[Megaxel]

Alors vite, un petit test:

Code :

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

If Not Range("A1").Comment Is Nothing Then

[logica]

Nickel Megaxel, ça fonctionne parfaitement avec ta condition Is Nothing

Merci à tous

[Megaxel]

Alors clique vite sur le bouton pour fermer ta question.
Hop!