Discussion :

[CodeRaccoon]

Bonjour à tous,

Je code un module qui comporte une partie Solver dont voici les lignes:

Code :

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

1
2
3
4
5
6
7
 
SolverReset
SolverOK SetCell:=Range("rng_vol"), MaxMinVal:=2, ByChange:=Range("rng_weight")
SolverAdd CellRef:=Range("rng_sum"), Relation:=2, FormulaText:=1
SolverAdd CellRef:=Range("rng_ret"), Relation:=3, FormulaText:=Range("rng_target")
SolverOptions AssumeNonNeg:=True
SolverSolve userfinish:=True

Mon problème est que la 1ère contraitne, celle sur la cellule rng_sum, n'est pas prise en compte. Quand je vais manuellement dans le Solver après avoir lancé mon code, la 2ème contrainte apparaît bien, mais pas la 1ère... Et si je l'ajoute à la main (cellule rng_sum = 1), elle est bien prise en compte et le Solver fonctionne comme je le souhaite.

Merci si vous pouvez m'éclairer,

Clément

[Jean-Philippe André]

Salut,

je suis tres etonne, je n'arrive pas a repliquer ton erreur de mon cote

A toutes fins utiles
http://jpcheck.developpez.com/tutori...ur-sous-excel/

[CodeRaccoon]

Le mystère reste entier...

Pour ceux que ça intéresse, j'ai résolu le problème en prenant le code de l'enregistreur de macro:

Code :

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

1
2
3
4
5
6
7
SolverOk SetCell:="$E$11", MaxMinVal:=2, ValueOf:=0, ByChange:="$B$2:$AH$2", _
    Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$D$11", Relation:=3, FormulaText:="rng_target"
SolverOk SetCell:="$E$11", MaxMinVal:=2, ValueOf:=0, ByChange:="$B$2:$AH$2", _
    Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$5", Relation:=2, FormulaText:="1"
SolverSolve