Erreur "1004" boucle "for each"
Résolu
sterf900
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
sterf900 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
sterf900 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je bute sur un code VBA qui me renvoie une erreur d'exécution "1004" sur la ligne N°5 (je ne sais pas si il y en a d'autres).
Le code:
Private Sub activ7xdessouscible_Click()
Application.ScreenUpdating = False
For Each Cell In Range("BA30:CN30")
If Cell.Value = "1" Then
Cell.Offset(1, 1).Value = 1
End If
Next
End Sub
le but de cette boucle est de tester la valeur des cellules ("BA30:CN30"). pour chaque cellule égale à 1, la cellule ce trouvant sur la meme colonne juste dessous (ex: si BA30=1 alors BA 31=1 est forcée à 1
compte tenue de mon niveau, l'aide excel n'a pas suffit. je m'en remet donc à votre savoir pour m'éclairer sur cette erreur.
merci par avance
je bute sur un code VBA qui me renvoie une erreur d'exécution "1004" sur la ligne N°5 (je ne sais pas si il y en a d'autres).
Le code:
Private Sub activ7xdessouscible_Click()
Application.ScreenUpdating = False
For Each Cell In Range("BA30:CN30")
If Cell.Value = "1" Then
Cell.Offset(1, 1).Value = 1
End If
Next
End Sub
le but de cette boucle est de tester la valeur des cellules ("BA30:CN30"). pour chaque cellule égale à 1, la cellule ce trouvant sur la meme colonne juste dessous (ex: si BA30=1 alors BA 31=1 est forcée à 1
compte tenue de mon niveau, l'aide excel n'a pas suffit. je m'en remet donc à votre savoir pour m'éclairer sur cette erreur.
merci par avance
A voir également:
- Erreur "1004" boucle "for each"
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Idm for mac - Télécharger - Téléchargement & Transfert
- Instagram for pc - Télécharger - Divers Communication
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
2 réponses
Bonjour,
Si tu veux faire ce que tu dis il faut modifier ainsi, sinon tu valorises BB31 :
Je te conseille aussi de rajouter la définition de la variable :
Sinon ta macro fonctionne correctement sur mon poste...
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. Antoine de Saint-Exupéry
Si tu veux faire ce que tu dis il faut modifier ainsi, sinon tu valorises BB31 :
Cell.Offset(1, 0).Value = 1
Je te conseille aussi de rajouter la définition de la variable :
Dim cell As Range
Sinon ta macro fonctionne correctement sur mon poste...
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. Antoine de Saint-Exupéry
