aide insertion commentaires

[jeremac]

Bonjour à tous,

Je voudrais insérer un ou plusieurs commentaires dans des cellules différentes, pour cela je l'ai placé dans une boucle qui se charge de remplir la valeur pour chaque cellule.
Mais à chaque fois, erreur de compilation "Method Range of object_Global" Failed

Merci de votre aide

' insertion du commentaire

If .Cdeliveryhours <> 0 Then
Range(Cligne, Ccol + J - 1).ClearComments
Range(Cligne, Ccol + J - 1).Select
Range(Cligne, Ccol + J - 1).AddComment
Range(Cligne, Ccol + J - 1).Comment.Visible = False
Range(Cligne, Ccol + J - 1).Comment.Text Text:="test"
RowHeight = 18

' valeur de la cellule

wrksheet.Cells(Cligne, Ccol + J - 1).Value = 0

End If

 

[GIBI]

Re : aide insertion commentaires

Bonjour,

à la place de range utilise Cells


gibi

 

[jeremac]

Re : aide insertion commentaires

Bonjour,

à la place de range utilise Cells


gibi

merci ça marche nikel