Discussion :

[grimgort]

Bonjour,

J'essaye désespérément de lancer une macro entre chaque itération du solveur de VBA. J'ai mis mon fichier en pièce jointe.
j'essaye donc de lancer la subroutine "solution()" entre chaque itération du solveur car c'est elle qui défini les liens entre la fonction objective et les variables d'optimisation.

Il semble que l'option "showref" puisse réaliser cela mais aucune de mes tentatives n'ont abouties (voir ci-dessous).
Merci de votre aide.

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
16
17
18
19
 
Sub solveur()
solverreset
'SolverOptions precision:=0.001
'Variable opti : débit solution riche, titre solution riche, surface évaporateur, taux récupération pied, taux de récupération tête
 
SolverOk SetCell:="$H$31", MaxMinVal:=1, ValueOf:=0, ByChange:="$C$4:$G$4", Engine:=1, EngineDesc:="GRG Nonlinear"
solveradd cellref:="$C$4:$G$4", Relation:=4, FormulaText:="entier"
solveradd cellref:="$C$4:$G$4", Relation:=1, FormulaText:="5"
solveradd cellref:="$C$4:$G$4", Relation:=3, FormulaText:="1"
 
SolverOptions StepThru:=True
 
'SolverSolve UserFinish:=False, ShowRef:="solution"
    ans = SolverSolve(True, "solution()")
    MsgBox "ans= " & ans
SolverFinish KeepFinal:=1, ReportArray:=Array(1)
 
End Sub