[VBA-E]utilisation de Comment.Text

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 :wink:
cyril

il faut d'abors créer le commentaire :

Code:

---

Range("A1").AddComment

---

aprés tu peu en modifier le texte :

Code:

---

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

---

:wink:

Hello,

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

Code:

---

Range("A1").AddComment "forfait"

---

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

Pour info, le code est:

Code:

---

Msgbox Range("A1").Comment.Text

---

Merci pour ton aide :wink:

Salut

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

Code:

---

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

---

et :

Code:

---

1 2 3

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

---

:wink:

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

Alors vite, un petit test:

Code:

---

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

---

:D

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

Merci à tous :wink:

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