L
leolemsyl
Guest
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.
Voyez vous ce qui ne fonctionne pas?
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.
Code:
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 SubVoyez vous ce qui ne fonctionne pas?