Solver VBA - Contrainte SolverAdd

Bonjour à tous,

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

Code:

---

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

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/

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:

---

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

---