Bonjour tout le monde,
J'ai réalisé un code vba incluant une maximisation avec solver. Dans ce code, il y a une itération avec des Range.
La colonne D représente mes contraintes max et la colonnne B représente mes contraintes min. Je demande à Solver que mes Changing Variables (colonne AH) suivent ces contraintes. Malheureusement, lorsque je lance le code, les contraintes sont prises en considération MAIS la virgule saute, par exemple, 297,26% est transformé en 29726% par Solver.
Voici mon code :
Sub points()
SolverReset
SolverOk SetCell:="$AH$47", MaxMinVal:=1, ValueOf:=0, ByChange:="$AH$29:$AH$39" _
, Engine:=1, EngineDesc:="GRG Nonlinear"
For i = 29 To 39
SolverAdd CellRef:=Range("AH" & i), Relation:=1, FormulaText:=Range("D" & i)
SolverAdd CellRef:=Range("AH" & i), Relation:=3, FormulaText:=Range("B" & i)
Next i
SolverAdd CellRef:="$AH$51", Relation:=2, FormulaText:="1"
Application.Run "Solver.xlam!solverSolve", True, 2
End Sub
Connaissez-vous ce problème de décimales qui sautent ?
Cordialement.