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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' 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