Où est l'erreur dans cet extrait de code [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 tout le monde,

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
16362
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
15 juin 2021
2 844
Bonjour,

Je ne connais pas VB mais ici l'erreur est super évidente. Tu as une condition mais tu ne fais rien avec, tu dois ajouter une action à faire si la condition est vérifié. Sinon tu peux supprimer toute ta boucle car elle ne sert à rien sans action associée.

"SI la valeur de la cellule (i,4) dans la feuilles est égale à "Ecl" ALORS je fais quelque chose (obligatoire) SINON je fais autre chose (facultatif)"
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
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 620
Bonjour nadnad13,
Salut kx,

KX a entièrement raison. If est un test. Partant de ce principe, un test engendre forcément une réponse... Si ... Alors.

Dans ton cas :
For computer = 3 To n Step 3
  If sheets(feuil1).cells(i,4).value = "Ecl" Then
    'ICI du code si la condition est vraie
  Else
    'ICI le cas ou la condition est fausse (il n'y a pas écrit Ecl dans ta cellule)
  End If 'Ne pas oublier!!!
Next computer


Avec, en prime, un Tutoriel sur IF
Messages postés
22
Date d'inscription
mardi 5 août 2014
Statut
Membre
Dernière intervention
7 août 2014

Merci beaucoup :)