Discussion :

[zeblln]

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

[aalex_38]

Bonjour,

As- tu dans ton code des gestions d'erreur comme

ON ERROR RESUME NEXT

As tu essayé de remplacer :

Code :

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

FormulaText:=Cells(a + NA, b - 3)

par

Code :

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

FormulaText:=Cells(a + NA, b - 3).text

[zeblln]

je n'ai pas de gestion d'erreur.

Lorsque je rajoute '.text' comme proposé, il ne prend en compte que deux contraintes sur trois (je ne comprend tjs pas pourquoi il saute la 3e) et de plus, il remplace ma référence à la cellule par un nombre. Autrement dit, le cotè droit de ma contrainte n'est plus égal à la valeur se trouvant dans une cellule (à laquelle je suis sensé faire référence) mais à un entier (3 285 156 en l'occurence).

Je suis au bord du suicide... ;-) je ne comprends vriament pas

[aalex_38]

Et avec .VALUE ?

[zeblln]

j'ai essayé différents cas de figures et au final je suis encore plus perdu : si je mets

* .text à la fin de toute les contraintes, il ne prend en compte AUCUNE contrainte (y compris la contrainte 1, qu'il prenait préalablement en compte)

* .text à la fin de la contrainte 2, le solver ne tient compte d'aucune des deux contraintes dont je parlais

* .text à la fin des contraintes 2 et 3, alors il prend en compte la contrainte 2 mais pas la 3. Il tient compte de la contrainte 2 en transformant la valeur a obtenir (qui est de 0.003745774) par 3745774, autrement dit , il la multiplie par 1 milliard

* . value à la fin de toutes les contraintes, il ne prend tjs que la contrainte 1 en compte (ce qui revient à mon problème de base)

* . value à la fin de la contrainte 2, il ne prend tjs que la contrainte 1 en compte (ce qui revient à mon problème de base)

* . value à la fin des contraintes 2 et 3, il ne prend tjs que la contrainte 1 en compte (ce qui revient à mon problème de base)

à devenir fou...