Macro avec solveur appliquée à une colonne de valeurs

**bouhbouh42** · 17/10/2018, 12h27

Bonjour à tous,

Je vous explique mon problème ...
M3 est mon "objectif à définir" qui doit être "min". L3 est ma cellule variable avec comme contraintes L3<=0.99999 et L3>=0.00001.
mais je dois répéter cela de la ligne 3 à la ligne 400 ! impossible manuellement et je n'arrive pas à écrire une macro avec une répétition ...

Pour une seule ligne j'ai cela. comment l'appliquer au 400 autres lignes?

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
Sub solveur()
'
' solveur Macro
'
 
'
    SolverOk SetCell:="$M$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$L$3", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$L$3", Relation:=1, FormulaText:="0,99999"
    SolverOk SetCell:="$M$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$L$3", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$L$3", Relation:=3, FormulaText:="0,00001"
    SolverOk SetCell:="$M$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$L$3", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$M$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$L$3", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub

Merci pour votre aide

**Menhir** · 17/10/2018, 12h37

Je n'ai jamais utilisé le solver en VBA mais puisque, à priori, les paramètres sont de simples chaines de caractères, je suppose qu'un boucle suffirait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Lig As Long
For Lig = 3 To 402
    SolverOk SetCell:="$M$" & Lig, MaxMinVal:=2, ValueOf:=0, ByChange:="$L$" & Lig, Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$L$" & Lig, Relation:=1, FormulaText:="0,99999"
    SolverOk SetCell:="$M$" & Lig, MaxMinVal:=2, ValueOf:=0, ByChange:="$L$" & Lig, Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$L$" & Lig, Relation:=3, FormulaText:="0,00001"
    SolverOk SetCell:="$M$" & Lig, MaxMinVal:=2, ValueOf:=0, ByChange:="$L$" & Lig, Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$M$" & Lig, MaxMinVal:=2, ValueOf:=0, ByChange:="$L$" & Lig, Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
Next Lig