JBV010912
XLDnaute Nouveau
Bonjour à tous,
Voila petit souci, je cherche à faire un solveur avec deux contraintes qui s'appliquera sur un nombre variable de cellules (i.e. l'utilisateur définit le nombre d'années pour lequel l'optimisation doit tourner). J'ai écrit laborieusement ce petit bout de code mais malheureusement il s'arrête en première année. Est-ce que quelqu'un saurait pourquoi?
Merci mille fois
Voila petit souci, je cherche à faire un solveur avec deux contraintes qui s'appliquera sur un nombre variable de cellules (i.e. l'utilisateur définit le nombre d'années pour lequel l'optimisation doit tourner). J'ai écrit laborieusement ce petit bout de code mais malheureusement il s'arrête en première année. Est-ce que quelqu'un saurait pourquoi?
Merci mille fois
VB:
Sub Optimizator()
'
' Test_Solveur Macro
'
Dim wsFM_B3 As Worksheet
Set wsFM_B3 = ThisWorkbook.Worksheets("xxx_B3")
Dim j As Integer
For j = 0 To Range("Years").Value
SolverReset
SolverAdd CellRef:=wsFM_B3.Range("E_Start").Offset(0, j), Relation:=3, FormulaText:= _
"'$E$7"
SolverAdd CellRef:=wsFM_B3.Range("Bank_Start").Offset(0, j), Relation:=3, FormulaText:="Cash_B3"
SolverOk SetCell:=wsFM_B3.Range("PoY_Start").Offset(0, j), MaxMinVal:=3, ValueOf:=0, ByChange:=wsFM_B3.Range("CC_Base_Start").Offset(0, j), Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve True
Next j
End Sub