T
Thierry
Guest
Bonjour,
(je suis sous Windows 2000 avec EXCEL 2000)
(Solver.xla est bien actif)
j'ai un soucis avec le solveur d'Excel appelé depuis le VBA :
----------------------------------------------------
Sub GoSolver()
SolverReset
SolverOk SetCell:="$M$1", MaxMinVal:=2, ValueOf:="0", ByChange:="$B$1:$B$2;$B$4:$B$5;$C$4"
SolverOptions MaxTime:=500, Iterations:=1000, Precision:=0.000001, AssumeLinear _
:=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
IntTolerance:=1, Scaling:=True, Convergence:=0.00001, AssumeNonNeg:=False
SolverSolve userFinish:=True
End Sub
----------------------------------------------------
Mon problème est que si je ne définis pas les plages de cellules en intéractif dans le menu SOLVEUR, ma routine ne résoud rien !!! C'est à dire que les propriétes "SetCell" et "ByChange" semblent ne pas être prise en compte !!!!
Quelqu'un a une idée ??
MERCI BEAUCOUP.
(je suis sous Windows 2000 avec EXCEL 2000)
(Solver.xla est bien actif)
j'ai un soucis avec le solveur d'Excel appelé depuis le VBA :
----------------------------------------------------
Sub GoSolver()
SolverReset
SolverOk SetCell:="$M$1", MaxMinVal:=2, ValueOf:="0", ByChange:="$B$1:$B$2;$B$4:$B$5;$C$4"
SolverOptions MaxTime:=500, Iterations:=1000, Precision:=0.000001, AssumeLinear _
:=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
IntTolerance:=1, Scaling:=True, Convergence:=0.00001, AssumeNonNeg:=False
SolverSolve userFinish:=True
End Sub
----------------------------------------------------
Mon problème est que si je ne définis pas les plages de cellules en intéractif dans le menu SOLVEUR, ma routine ne résoud rien !!! C'est à dire que les propriétes "SetCell" et "ByChange" semblent ne pas être prise en compte !!!!
Quelqu'un a une idée ??
MERCI BEAUCOUP.