Où se trouve l'erreur dans cet extrait de code (VBA)
Résolu/Fermé
nadnad13
nadnad13
- Messages postés
- 22
- Date d'inscription
- mardi 5 août 2014
- Statut
- Membre
- Dernière intervention
- 7 août 2014
nadnad13
- Messages postés
- 22
- Date d'inscription
- mardi 5 août 2014
- Statut
- Membre
- Dernière intervention
- 7 août 2014
A voir également:
- Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structur
- Où se trouve l'erreur dans cet extrait de code (VBA) ✓ - Forum - Excel
- Où est l'erreur dans cet extrait de code ✓ - Forum - VB / VBA
- Table des matières dont les titres n'apparaissent pas.. - Forum - Word
- Table des matières et majuscules ✓ - Forum - Bureautique
- Trouvez l'erreur dans la structure du document word - Articles
3 réponses
via55
5 août 2014 à 19:53
- Messages postés
- 13595
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 22 mai 2022
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
5 août 2014 à 20:08
- Messages postés
- 319
- Date d'inscription
- mercredi 13 janvier 2010
- Statut
- Membre
- Dernière intervention
- 27 mars 2020
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
5 août 2014 à 20:12
- 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
Mercii :)
Iama
Modifié par Iama le 5/08/2014 à 20:02
- Messages postés
- 319
- Date d'inscription
- mercredi 13 janvier 2010
- Statut
- Membre
- Dernière intervention
- 27 mars 2020
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.