référence de variable de controle incorrecte dans next

[vmatthieu]

bonsoir tout le monde,
je m'excuse ma question est sans doute bête et la réponse facile mais bon ....

pourquoi s'il vous plait dans le fichier joint (dumoins quelle erreur je fais) pour que dans la macro du module 1 j'ai l'erreur "référence de variable de controle incorrecte dans next"


merci d'avance et bonne soirée

 

[dra72]

Re : référence de variable de controle incorrecte dans next

Bonsoir,

Voici ton code:

Sub macro1()
Dim cc As Integer
Dim a As Integer
Dim b As Integer

Dim d As Integer

For a = 4 To 36
For b = 0 To 12
 b = b + 4
For cc = 1 To 12
For d = 1 To 31


Worksheets("feuil2").Activate
Cells(cc, d) = Worksheets("BASE").Cells(a, b).Value


Next cc
Next b
Next d
Next a
End Sub

Tes instructions Next ne sont pas dans le bon ordre

Pour mieux comprendre, utilise les tabulations dans tes codes
soit

Sub macro1()
Dim cc As Integer
Dim a As Integer
Dim b As Integer

Dim d As Integer

For a = 4 To 36
  For b = 0 To 12
     b = b + 4
     For cc = 1 To 12
       For d = 1 To 31
         Worksheets("feuil2").Activate
         Cells(cc, d) = Worksheets("BASE").Cells(a, b).Value
       Next cc
     Next b
  Next d
Next a
End Sub

Ainsi tu vois que tes instructions Next ne correspondent pas aux For.
For d correspond à Next cc
For cc correspond à Next b
For b correspond à Next d

Tes Next doivent être dans l'ordre inverse à tes For
soit
Next d
Next cc
Next b
Next a

Donc en définitive:

Sub macro1()
Dim cc As Integer
Dim a As Integer
Dim b As Integer

Dim d As Integer

For a = 4 To 36
  For b = 0 To 12
     b = b + 4
     For cc = 1 To 12
       For d = 1 To 31
         Worksheets("feuil2").Activate
         Cells(cc, d) = Worksheets("BASE").Cells(a, b).Value
       Next d
     Next cc
  Next b
Next a
End Sub