Où se trouve l'erreur dans cet extrait de code (VBA) [Résolu/Fermé]

Signaler
Messages postés
22
Date d'inscription
mardi 5 août 2014
Statut
Membre
Dernière intervention
7 août 2014
-
Messages postés
22
Date d'inscription
mardi 5 août 2014
Statut
Membre
Dernière intervention
7 août 2014
-
Bonjour,

Voici l'extrait de code en question:

For computer = 3 To n Step 3
if sheets(feuil1).cells(i,4).value = "Ecl"


J'aimerais savoir pourquoi lorsque j'écris la ligne : if sheets(feuil1).cells(i,4).value = "Ecl" , on me sort ceci : Erreur de compilation. Attendu: Then ou GOTO

Où réside le problème ??

Je vous remercie d'avance.

3 réponses

Messages postés
13005
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
30 avril 2021
2 185
Bonsoir

Comme te l'indique le code erreur il manque en fin de ligne soit le then pour appliquer les lignes en dessous si la condition est remplie (mettre après ces lignes un End if); soit un goto qui renvoie à une ligne spécifique ou à une autre macro

Cdlmnt
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
22
Date d'inscription
mardi 5 août 2014
Statut
Membre
Dernière intervention
7 août 2014

Merci beaucoup, je croyais que je pouvais mettre le then après avoir fait un retour à la ligne.. Excusez mon ignorance je suis super débutante en vba :D

Merci encore :)
Messages postés
13005
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
30 avril 2021
2 185
De rien, il n'y pas à t'excuser, c'est en faisant qu'on apprend, et on apprend plus de ses erreurs que de ses succès, on en passe tous par là
Bonne suite et n'hésites pas à redemander s'il y a quelque chose que tu ne comprends pas, c'est bien le principe de l'entraide qui règne ici
Messages postés
22
Date d'inscription
mardi 5 août 2014
Statut
Membre
Dernière intervention
7 août 2014

Merci beaucoup, je reviendrai sûrement, et très prochainement pour demander de l'aide, car devant moi se tiennent des tâches colossales à automatiser en VBA.

Cordialement.
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
Bonjour

Je complète, j'ai été trop vite excuse
si n est ingrémenté

For computer = 3 To n Step 3
If Sheets("feuil1").Cells(computer, 4).Value = "Ecl" Then
...
Else
....

End If

Next
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
22
Date d'inscription
mardi 5 août 2014
Statut
Membre
Dernière intervention
7 août 2014

Mercii :)
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
Bonjour
D'entrée si feuil1 est le nom de la feuille => "feuil1"
après?
For computer = 3 To n Step 3
if sheets("feuil1").cells(computer,4).value = "Ecl"
...;;
next