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
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
A voir également:
- Où se trouve l'erreur dans cet extrait de code (VBA)
- Erreur 0x80070643 - Guide
- Ou se trouve la corbeille de whatsapp - Guide
- Code asci - Guide
- Code erreur t32 ✓ - Forum Livebox
- Code puk bloqué - Guide
3 réponses
via55
Messages postés
14408
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 mai 2024
2 704
5 août 2014 à 19:53
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
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
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
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
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
5 août 2014 à 20:12
Mercii :)
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
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
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
5 août 2014 à 19:56
Merci encore :)
5 août 2014 à 19:58
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
5 août 2014 à 20:06
Cordialement.