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