Erreu 1004 VBA
done_29
Messages postés
1
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
J'ai un problème d'erreur d'execution '1004' , Erreur définie par l'application ou par l'objet, qui se produit toujours à la 257 lignes de mon fichier Excel. Ce code VBA est programmé sous access est viens regarder si il y a commentaire dans une fameuse cellule.
Mon code est le suivant dans une boucle For I = 0 to 290 (erreur à I = 257)
If Not Cells(I, J).Comment Is Nothing Then 'Si le commentaire de la cellule n'est pas vide
commentaire = Cells(I, J).Comment.Text
Else: commentaire = ""
End If
Merci à vous pour votre aide!
J'ai un problème d'erreur d'execution '1004' , Erreur définie par l'application ou par l'objet, qui se produit toujours à la 257 lignes de mon fichier Excel. Ce code VBA est programmé sous access est viens regarder si il y a commentaire dans une fameuse cellule.
Mon code est le suivant dans une boucle For I = 0 to 290 (erreur à I = 257)
If Not Cells(I, J).Comment Is Nothing Then 'Si le commentaire de la cellule n'est pas vide
commentaire = Cells(I, J).Comment.Text
Else: commentaire = ""
End If
Merci à vous pour votre aide!
1 réponse
Bonjour,
la remarque que tu met n'est pas juste...
If Not Cells(I, J).Comment Is Nothing Then 'Si le commentaire de la cellule n'est pas vide
En réalité c'est.. S'il y a un commentaire sur cette cellule
Sinon, je ne vois pas d'autre possibilité d'erreur avec la partie de code que tu met.
A+
EDIT:
Tu n'aurais pas dimentionner i as Byte ? auquel cas, ça ne va pas plus que 255
EDIT2:
Je pense que j'ai trouver,
I = 257 parce que c'est avavnt de rentrer dans la boucle parce que Cells(0,J) va donner une erreur 1004
et comme tu commence à 0 !!
Faut ta boucle à 1 to 290
la remarque que tu met n'est pas juste...
If Not Cells(I, J).Comment Is Nothing Then 'Si le commentaire de la cellule n'est pas vide
En réalité c'est.. S'il y a un commentaire sur cette cellule
Sinon, je ne vois pas d'autre possibilité d'erreur avec la partie de code que tu met.
A+
EDIT:
Tu n'aurais pas dimentionner i as Byte ? auquel cas, ça ne va pas plus que 255
EDIT2:
Je pense que j'ai trouver,
I = 257 parce que c'est avavnt de rentrer dans la boucle parce que Cells(0,J) va donner une erreur 1004
et comme tu commence à 0 !!
Faut ta boucle à 1 to 290
