1 pièce(s) jointe(s)
Lancer une macro entre chaque itérations du solver VBA
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:
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 |
