ajout commentaire et vba

Question

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

le père · Answer

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

Ajout commentaire et vba

1 réponse

Discussions similaires

Newsletters