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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !