existence de commentaire dans une cellule en vba

Bonjour,


Voici la situation : j'ai besoin de copier le commentaire d'une cellule dans une autre cellule mais cela ne doit se faire que si j'ai un commentaire dans la première cellule.

Je désire donc pouvoir tester l'existence du commentaire en question

le problème est que à partir du moment où il n'y a pas de commentaire dans la cellule vba me renvoi une erreur si j'écrit le code suivant

Code:

---

nom=cells(1,1).comment.text

---

ou

Code:

---

cells(1,1).comment

---

HELP

Et voilà il suffit de se poser la question 5 sec de plus et on a la solution

la voici pour ceux qui comme moi se poserons la question

Code:

---

1 2 3

if not (cells(1,1).comment is nothing) then 'test s'il y a un commentaire dans la cellule cells(1,2).addcomment (cells(1,1).comment.text) 'ajout du commentaire dans la seconde avec le texte de la première cellule end if

---

S'il n'y a pas de commentaire dans la première cellule il passe son chemin......

Merci quand même