Discussion :

[jazziestan]

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 :

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

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

ou

Code :

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

cells(1,1).comment

HELP

[jazziestan]

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 :

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

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