Bonjour,

je ne comprends pas pourquoi lorsque j'appelle le solver via VBA, ce dernier ne prend pas en compte toutes les contraintes reprises dans le code. Il se comporte comme si ces contraintes n'existaient pas, et effectue la suite normalement. Si une bonne âme pouvait m'aider, je peux éventuellement lui envoyer l'ensemble du code... Voici le bout de code qui pose problème :

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
SolverReset
 
SolverOk SetCell:=Cells(a, b), MaxMinVal:=1, ValueOf:=0, ByChange:=Range(Cells(a, b - 4), Cells(a + NA - 1, b - 4)) _
        , Engine:=1, EngineDesc:="GRG Nonlinear"
 
SolverAdd CellRef:=Range(Cells(a, b - 4), Cells(a + NA - 1, b - 4)), Relation:=3, FormulaText:="0"
 
'Contrainte sautée (?)
SolverAdd CellRef:=Cells(a + NA, b - 4), Relation:=2, FormulaText:=Cells(a + NA, b - 3)
 
'Contrainte sautée (?)
SolverAdd CellRef:=Cells(a + 1, b), Relation:=2, FormulaText:=Cells(a - 4 - NPF - ((i - 1) * (5 + NA)) + (i - 1), b - 3)
 
SolverOk SetCell:=Cells(a, b), MaxMinVal:=1, ValueOf:=0, ByChange:=Range(Cells(a, b - 4), Cells(a + NA - 1, b - 4)) _
        , Engine:=1, EngineDesc:="GRG Nonlinear"
 
SolverSolve