où est l'erreur dans cet extrait de code Résolu

Question

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.

KX · Answer

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

pijaku · Answer

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

nadnad13 · Answer

Merci beaucoup :)

Où est l'erreur dans cet extrait de code

3 réponses

Discussions similaires

Newsletters