Où se trouve l'erreur dans cet extrait de code (VBA)
Résolu
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.
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
-
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
-
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 -
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
