Ajout commentaire et vba

jazziestan -  
 le père -
Bonjour,


J'ai un souci avec le range de l'ajout de commentaire.

Mon code est :
dim resultat as worksheet

set resultat=thisworksbook.worksheets(1)

resultat.cells(1,5).addcomment resultat.cells(1,6)

il me le met en erreur

j'ai essayé :

dim resultat as worksheet

set resultat=thisworksbook.worksheets(1)

range(resultat.cells(1,5)).addcomment resultat.cells(1,6)

ce qui ne foncitonne pas non plus mais cela ne m'étonne pas vraiment................

Vous avez une solution?
STP

merci

1 réponse

le père
 
Bonjour

addcomment ne marche que s'il n'y a pas déjà de commentaire. Je te suggère

On Error Resume Next
resultat.Cells(1, 5).Comment.Delete
resultat.Cells(1, 5).AddComment resultat.Cells(1, 6).Text
On Error GoTo 0
0