Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Erreur de compilation

Erreur de compilation

3 réponses
Avatar
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 _
:=False, Transpose:=False

Next coulone
Next ligne
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Inverser:

Next ligne
Next coulone

ou
Next
Next

JB
On 12 sep, 12:17, "Hicham Oudrhiri" wrote:
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


Avatar
Daniel.C
Bonjour.
Si tu inversais les lignes "next" ? :
next lligne
next coulone
dans cet ordre.
Cordialement.
Daniel
"Hicham Oudrhiri" a écrit dans le message de 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



Avatar
Hicham Oudrhiri
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" a écrit dans le message de news:
%
Bonjour.
Si tu inversais les lignes "next" ? :
next lligne
next coulone
dans cet ordre.
Cordialement.
Daniel
"Hicham Oudrhiri" a écrit dans le message de
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