VBA Solveur sur un nombre de cellules variable

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

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
 

Statistiques des forums

Discussions
312 210
Messages
2 086 277
Membres
103 170
dernier inscrit
HASSEN@45