insertion commentaires

**jeremac** · 14/05/2008, 15h15

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

**zyhack** · 14/05/2008, 15h29

Bonjour

Pourrais tu préciser sur quelle ligne tu as le défaut, est-ce que c’est au premier cycle enfin quelques informations complémentaires ?

**jeremac** · 14/05/2008, 15h37

Envoyé par zyhack

Bonjour

Pourrais tu préciser sur quelle ligne tu as le défaut, est-ce que c’est au premier cycle enfin quelques informations complémentaires ?

J'ai le défaut sur toutes les lignes avec la méthode RANGE , je pense que c'est mon ensemble (ligne , colonne) qu'il n'aime pas trop.

merci pour ta réponse

**zyhack** · 14/05/2008, 15h49

Au moment ou tu as ton erreur dans la boite de dialogue clic sur debogage et essaye de voir les différentes valeurs pour trouver d’où vient le problème

Sinon dans la fenêtre exécution tu peux taper l’instruction

Print Range(Cligne, Ccol + J - 1).address

Si l’adresse est valide il devrait te donner une valeur du style $C$20

Si ce n’est pas le cas essaye

Print Cligne & " " & Ccol & " " & J

Il te donneras les valeurs ce qui te permettra de voir ou ça cloche.

Nota :
Pour afficher la fenêtre execution dans la fenêtre Visual Basic c’est dans le menu affichage-fenêtre execution