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
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1. 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