Erreur de compilation

Le
Hicham Oudrhiri
Bonjour à tous
En exécutant le code si dessous j 'ai un message d' erreur qui dit "
Référence de variable de contrôle incorrecte dans next" et le coulone est
surligné en bleu.
Pouvez m'aider à corriger
Merci
H

Le code

For coulone = 3 To 14
For ligne = 4 To 159 Step 13

Sheets("obj").Select
ActiveSheet.Range(Cells(4, coulone), Cells(16, coulone)).Select
Selection.Copy
Sheets("obj2").Select
ActiveSheet.Range(Cells(ligne, 5)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse

Next coulone
Next ligne
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4748771
Bonjour,

Inverser:

Next ligne
Next coulone

ou
Next
Next

JB
On 12 sep, 12:17, "Hicham Oudrhiri"
Bonjour à tous
En exécutant le code si dessous j 'ai un message d' erreur qui dit "
Référence de variable de contrôle incorrecte dans next" et le coulo ne est
surligné en bleu.
Pouvez m'aider à corriger
Merci
H

Le code

For coulone = 3 To 14
For ligne = 4 To 159 Step 13

Sheets("obj").Select
ActiveSheet.Range(Cells(4, coulone), Cells(16, coulone)).Select
Selection.Copy
Sheets("obj2").Select
ActiveSheet.Range(Cells(ligne, 5)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipB lanks _
:úlse, Transpose:úlse

Next coulone
Next ligne


Daniel.C
Le #4748761
Bonjour.
Si tu inversais les lignes "next" ? :
next lligne
next coulone
dans cet ordre.
Cordialement.
Daniel
"Hicham Oudrhiri"
Bonjour à tous
En exécutant le code si dessous j 'ai un message d' erreur qui dit "
Référence de variable de contrôle incorrecte dans next" et le coulone est
surligné en bleu.
Pouvez m'aider à corriger
Merci
H

Le code

For coulone = 3 To 14
For ligne = 4 To 159 Step 13

Sheets("obj").Select
ActiveSheet.Range(Cells(4, coulone), Cells(16, coulone)).Select
Selection.Copy
Sheets("obj2").Select
ActiveSheet.Range(Cells(ligne, 5)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:úlse

Next coulone
Next ligne



Hicham Oudrhiri
Le #4748581
Re
Merci à tous pour vos réponse
voila j'ai corriger le code (voir ci dessous) mais j'ai la boucle coulone
qui ne incrémente pas alors que l'autre boucle le fait.
Merci de m'aider .
H
For coulone = 3 To 9
For ligne = 4 To 159 Step 13

Sheets("obj").Select
With ActiveSheet

.Range(.Cells(4, coulone), .Cells(16, coulone)).Select
Selection.Copy
End With
Sheets("obj2").Select
ActiveSheet.Cells(ligne, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse

Next
Next



"Daniel.C" %
Bonjour.
Si tu inversais les lignes "next" ? :
next lligne
next coulone
dans cet ordre.
Cordialement.
Daniel
"Hicham Oudrhiri" news:
Bonjour à tous
En exécutant le code si dessous j 'ai un message d' erreur qui dit "
Référence de variable de contrôle incorrecte dans next" et le coulone est
surligné en bleu.
Pouvez m'aider à corriger
Merci
H

Le code

For coulone = 3 To 14
For ligne = 4 To 159 Step 13

Sheets("obj").Select
ActiveSheet.Range(Cells(4, coulone), Cells(16, coulone)).Select
Selection.Copy
Sheets("obj2").Select
ActiveSheet.Range(Cells(ligne, 5)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse

Next coulone
Next ligne







Publicité
Poster une réponse
Anonyme