Erreu 1004 VBA

Fermé
done_29 Messages postés 1 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 11 mars 2009 - 11 mars 2009 à 09:50
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 11 mars 2009 à 10:47
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!

1 réponse

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
11 mars 2009 à 10:47
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
0