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 ?