OVH Cloud OVH Cloud

Programmer le solveur dans une macro : help ????

1 réponse
Avatar
Tibo
Bonjour

je souhaiterais automatiser le solver a l'aide d'une macro que
j'incorporerais dans un bouton de commande. Pour cela je crée une macro à
l'aide de l'outil d'enregistrement de excel : je lance l'enregistrement puis
effectuer les actions normalement, et enfin cloture l'enregistrement. Puis
je lance la macro ainsi créer et l'erreur suivante apparait : "Erreur de
Compilation : Sub ou Fonction non définie" et il met alors la surbillance
sur "SolverOk". Voici le code créer :

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 13/11/2003 par ......
SolverOk SetCell:="$H$24", MaxMinVal:=3, ValueOf:="25",
ByChange:="$F$22"
SolverSolve
End Sub

Pouvez vous me donner une marche a suivre pour résoudre ce probleme ?
Merci beaucoup d'avance.
Cordialement

Thibault

1 réponse

Avatar
Frédéric Sigonneau
Bonsoir,

Pour utiliser le solveur en VBA, il faut :

- que la macro complémentaire Solver.xla soit installée
*et*
- que tu ajoutes une référence à cette macro complémentaire dans le classeur où
tu veux utiliser ses fonctions/procédures.

Ça peut se faire dans l'éditeur Visual Basic (OutilsRéférences, cocher SOLVER
dans la liste et OK) ou par un bout de code de ce style (le chemin du solver
étant à adapter) :

Application.VBE.ActiveVBProject.References.Addfromfile _
("C:Program FilesMicrosoft OfficeOffice10MacrolibSolverSolver.xla")

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour

je souhaiterais automatiser le solver a l'aide d'une macro que
j'incorporerais dans un bouton de commande. Pour cela je crée une macro à
l'aide de l'outil d'enregistrement de excel : je lance l'enregistrement puis
effectuer les actions normalement, et enfin cloture l'enregistrement. Puis
je lance la macro ainsi créer et l'erreur suivante apparait : "Erreur de
Compilation : Sub ou Fonction non définie" et il met alors la surbillance
sur "SolverOk". Voici le code créer :

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 13/11/2003 par ......
SolverOk SetCell:="$H$24", MaxMinVal:=3, ValueOf:="25",
ByChange:="$F$22"
SolverSolve
End Sub

Pouvez vous me donner une marche a suivre pour résoudre ce probleme ?
Merci beaucoup d'avance.
Cordialement

Thibault