Pb Solver nb entier

Pb Solver nb entier - VB/VBA/VBS - Programmation

Marsh Posté le 23-11-2005 à 14:58:14    

Bonjour à tous,
 
 
J'utilise le solver par l'intermédiaire d'une macro avec le code suivant:
 
 
solverreset
     
      SolverAdd CellRef:="$D$22", Relation:=4, FormulaText:="integer"
   
      SolverAdd CellRef:="$D$17", Relation:=3, FormulaText:="$E$17"
 
      SolverAdd CellRef:="$D$40", Relation:=1, FormulaText:="$F$40"
     
    SolverOk SetCell:="$D$47", MaxMinVal:=1, ValueOf:="0", ByChange:="$D$17,$D$22,$D$20 "
    SolverSolve
 
 
 
Mon pb est que la ligne de code ci-dessous, qui permet d'ajouter une contrainte du type: "j'impose que la valeur de ma cellule soit un nombre entier", n'est pas prise en compte.
 
Ce n'est pourtant pas un pb de solution "possible" ou non, car lorsque j'ouvre le solver manuellement après l'exécution de la macro toutes les contraintes sont présentes mais pas celle pour le nb entier.  
 
De plus lorsque, manuellement, je lance le solver avec la dite contrainte, le solver trouve bien une solution.
 
Quelqu'un a-til déjà rencontré le pb? Et aurait une solution pour le contourner?
 
 
 
Code qui n'est pas pris en compte par la macro:
 
SolverAdd CellRef:="$D$22", Relation:=4, FormulaText:="integer"
 
 
 
A+

Reply

Marsh Posté le 23-11-2005 à 14:58:14   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed