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

Résolu

nadnad13 Messages postés 25 Statut Membre -
nadnad13 Messages postés 25 Statut Membre - 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.

Afficher la suite

A voir également:

Où se trouve l'erreur dans cet extrait de code (VBA)
Code ascii - Guide
Code activation windows 10 - Guide
Ou se trouve la corbeille - Guide
Où se trouve ce lieu - Guide
Ou se trouve le presse papier sur android - Guide

3 réponses

Réponse 1 / 3
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention 2 759

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
1. nadnad13 Messages postés 25 Statut Membre
  
  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 :)
  
  0
2. via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention 2 759
  
  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
  
  0
3. nadnad13 Messages postés 25 Statut Membre
  
  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.
  
  0
Réponse 2 / 3
Iama Messages postés 324 Statut Membre 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
1. nadnad13 Messages postés 25 Statut Membre
  
  Mercii :)
  
  0
Réponse 3 / 3
Iama Messages postés 324 Statut Membre 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
0

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

3 réponses

Discussions similaires

Newsletters