VBA Solveur sur un nombre de cellules variable

[JBV010912]

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

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

 

[Alza]

Salut,

Range("Years").Value

T'es sur de ce que ça te retourne ?

 

[JBV010912]

Oui j'utilise l'expression dans d'autres macro, là en l'occurence ça me renvoie 3

 

[Alza]

Je connais pas assez les solveurs pour t'aider t'as vérifier que ce que tu fais dans ta boucle ne modifie pas Range("Years").Value ?

 

[JBV010912]

Oui :s la référence "years" renvoie à une cellule fixe dans laquelle l'utilisateur rentre manuellement le nombre d'années souhaitées

 

[JBV010912]

Personne n'a une idée?

 

[Hieu]

Avec un fichier excel light, sans données confidentielles, t'auras plus de réponses !

 

[JBV010912]

Et voici un fichier excel simplifié.
Il y a plusieurs macros dedans mais j'avoue je ne comprends pas leur comportement

 

[Hieu]

Que doit faire la macro ?