Rapport de message :*
 

solver dans macro

Titre du sujet : solver dans macro
par lannou le 10/07/2008 16:55:11

Bonjour Didier, bonjour le forum!

J'ai une question à vous poser.

Mon souhait est d'intégrer le solver dans une macro pour que lorsque je clique sur un bouton le solver se lance automatiquement.
J'ai dons fixer manuellement mes paramètres dans le solver par enregistrement pour avoir le code puis j'ai créé un bouton.

Cependant lorsque je clique sur le bouton, le solver ne tourne pas et bute sur les premiers mots du code "solverok".

Il apparait alors une fenêtre "erreur de compilation Sub ou fonction non définie"

Le code est le suivant :

Sub Macro1()
'

    SolverOk SetCell:="$C$17", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$9:$C$16"
    SolverAdd CellRef:="$C$9:$C$16", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$G$9:$G$14", Relation:=3, FormulaText:="$H$9:$H$14"
    SolverOk SetCell:="$C$17", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$9:$C$16"
    SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _
        :=True, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
        IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=False
    SolverOk SetCell:="$C$17", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$9:$C$16"
    SolverSolve

End Sub

Si vous souhaitez plus de renseignements, je joints mon fichier!

J'ai cherché pas mal de temps sans trouvé...Si quelqu'un à la réponse ce serait cool!

Merci d'avance à tous