C
Clem13
Guest
Bonjour,je suis en train de créer un programme pour mes etudes,et je suis obligé d'utiliser la fonction solveur d'excel.
Mon programme calcul sur excel et est sécurisé sous VBA.
Tout fonctionne à peu pres sauf mon travazil d'hiuer.
Je fais des tests du solveur sur Excel (fichier/outil/solveur...),cela fonctionne,je décide de faire la meme chose en faisant une "macro enregistré" de facon a pouvoir lancer mon aide a la décision a parti d'un USERFORM VBA.
J'arrete ma "macro enregistré",voici ce que j'obtient :
Sub solveur_distribution()
'
' solveur_distribution Macro
' Macro enregistrée le 17/11/2006 par Etudiant
'
'
SolverOk SetCell:="$E$36", MaxMinVal:=3, ValueOf:="20000", ByChange:= _
"$G$23,$I$23"
SolverAdd CellRef:="$E$37", Relation:=1, FormulaText:="50"
SolverAdd CellRef:="$G$23", Relation:=4, FormulaText:="entier"
SolverAdd CellRef:="$G$23", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$I$23", Relation:=4, FormulaText:="entier"
SolverAdd CellRef:="$I$23", Relation:=3, FormulaText:="0"
SolverOk SetCell:="$E$36", MaxMinVal:=3, ValueOf:="20000", ByChange:= _
"$G$23,$I$23"
SolverSolve
End Sub
Quand je lance l'execution,j'ai une erreur type "debogage" avec sa surligné en jaune :*
SolverAdd
Que faire ?
Mon programme calcul sur excel et est sécurisé sous VBA.
Tout fonctionne à peu pres sauf mon travazil d'hiuer.
Je fais des tests du solveur sur Excel (fichier/outil/solveur...),cela fonctionne,je décide de faire la meme chose en faisant une "macro enregistré" de facon a pouvoir lancer mon aide a la décision a parti d'un USERFORM VBA.
J'arrete ma "macro enregistré",voici ce que j'obtient :
Sub solveur_distribution()
'
' solveur_distribution Macro
' Macro enregistrée le 17/11/2006 par Etudiant
'
'
SolverOk SetCell:="$E$36", MaxMinVal:=3, ValueOf:="20000", ByChange:= _
"$G$23,$I$23"
SolverAdd CellRef:="$E$37", Relation:=1, FormulaText:="50"
SolverAdd CellRef:="$G$23", Relation:=4, FormulaText:="entier"
SolverAdd CellRef:="$G$23", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$I$23", Relation:=4, FormulaText:="entier"
SolverAdd CellRef:="$I$23", Relation:=3, FormulaText:="0"
SolverOk SetCell:="$E$36", MaxMinVal:=3, ValueOf:="20000", ByChange:= _
"$G$23,$I$23"
SolverSolve
End Sub
Quand je lance l'execution,j'ai une erreur type "debogage" avec sa surligné en jaune :*
SolverAdd
Que faire ?