Où se trouve l'erreur dans cet extrait de code (VBA)

Résolu/Fermé

nadnad13

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

- Modifié par nadnad13 le 5/08/2014 à 19:48
nadnad13

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

- 5 août 2014 à 20:12

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.

A voir également:

Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structur
Où se trouve l'erreur dans cet extrait de code (VBA) ✓ - Forum - Excel
Où est l'erreur dans cet extrait de code ✓ - Forum - VB / VBA
Table des matières dont les titres n'apparaissent pas.. - Forum - Word
Table des matières et majuscules ✓ - Forum - Bureautique
Trouvez l'erreur dans la structure du document word - Articles

3 réponses

Réponse 1 / 3

via55

Messages postés: 13595
Date d'inscription: mercredi 16 janvier 2013
Statut: Membre
Dernière intervention: 22 mai 2022

2 401
5 août 2014 à 19:53

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

nadnad13

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

5 août 2014 à 19:56

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 :)

via55

Messages postés: 13595
Date d'inscription: mercredi 16 janvier 2013
Statut: Membre
Dernière intervention: 22 mai 2022

2 401
5 août 2014 à 19:58

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

nadnad13

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

5 août 2014 à 20:06

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.

Réponse 2 / 3

Iama

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

14
5 août 2014 à 20:08

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

nadnad13

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

5 août 2014 à 20:12

Mercii :)

Réponse 3 / 3

Iama

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

14
Modifié par Iama le 5/08/2014 à 20:02

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

Newsletters