Déclencher le Solver Excel depuis une fonction VBA
Bonjour à tous,
Je souhaiterais pouvoir déclencher le Solver Excel grâce à une fonction codée en VBA.
Voici ce que j'ai testé:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Function SolverLCOE()
'Prevent apparition of pop up
Application.DisplayAlerts = False
SolverOk SetCell:=Range("VAN"), MaxMinVal:=3, ValueOf:=0, ByChange:=Range("LCOE"), Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:=Range("VAN"), MaxMinVal:=3, ValueOf:=0, ByChange:=Range("LCOE"), Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve Userfinish:=True
Application.DisplayAlerts = True
End Function |
Dans une prcédure "Sub" cela fonctionne très bien mais pour des raisons pratiques (que je peux expliquer au besoin), il faudrait que je puisse le déclencher depuis une fonction.
Je pense que la question ce résume à: "Comment faire en sorte pour que ma fonction retourne le résultat du Solver ?"
Merci d'avance pour l'aide !
