Boucles imbriquées

[leolemsyl]

Bonjour,

J'éffectue une macro avec plusieurs boucles.
Le but est d effectuer plusieurs valeurs cibles en changeant deux variables par des boucles et d'ensuite de faire mon goalseek.
La macro affiche le message suivant: référence de variable de controle incorrecte dans next.

Sub targetnomROE()

Dim NumCas As Range, Target As Range, tab2case As Range, Mybook As Workbook

Set Mybook = ActiveWorkbook
Set NumCas = Mybook.Sheets("INPUT").Range("c2:c8")
Set Target = Mybook.Sheets("Mainsheet").Range("cible1")
Set tab2case = Mybook.Sheets("Mainsheet").Range("tab2case ")
Set Pivot1 = Mybook.Sheets("Mainsheet").tab2case.Cells(2, 2)
Set Pivot2 = Mybook.Sheets("Mainsheet").tab2case.Cells(3, 2)

For i = 3 To i = tab2case.Columns.Count
For j = 3 To j = tab2case.Columns.Count
For k = 6 To k = tab2case.Rows.Count

    NumCas.Value = tab2case.Cells(1, i)
    Pivot1.Value = tab2case.Cells(4, j)
    Pivot2.Value = tab2case.Cells(k, 2)
    Target.GoalSeek goal:=tab2case.Cells(3, i), changingcell:=tabcase.Cells(k, j)
  
Next i
Next j
Next k

End Sub

Voyez vous ce qui ne fonctionne pas?

 

[vgendron]

Re : Boucles imbriquées

Salut
suis pas sur, mais c'est pas à cause de la syntaxe
For i = 3 To i = tab2case.Columns.Count

qui devrait etre ?
For i = 3 To tab2case.Columns.Count

 

[Pierrot93]

Re : Boucles imbriquées

Bonjour,

modifie peut être les next comme suit :

Next k
Next j
Next i

bon après midi
@+

Edition : bonjour vgendron