Solveur automatisation

[WEST]

Re-bonjour le forum,

donc tout à l'heure, mon bienfaiteur m'a trouvé la solution à mon problème de macros pour le SOLVEUR sous VBA ... parfait.

Le problème maintenant, c'est que quand j'enregistre la macro, elle ne semble pas prendre en compte l'étape qui suit 'Résoudre' ou solve dans le VBA, à savoir la boi de dialogue 'Résultat du solveur' et qui propose de garder la solution du solveur ou de rétablir les anciennes valeurs avant de calculer automatiquement. C'est embêtant puisque le but d'une macro, c'est d'automatiser les choses. Quelqu'un connaîtrait-il les commande vba à rajouter dans les lignes suivantes :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 18/05/2006 par LANNUZEL BILLARD
'
' Touche de raccourci du clavier: Ctrl+s
'
SolverOk SetCell:='$AA$14', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$14'
SolverSolve
SolverOk SetCell:='$AA$15', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$15'
SolverSolve
SolverOk SetCell:='$AA$16', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$16'
SolverSolve
SolverOk SetCell:='$AA$17', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$17'
SolverSolve
SolverOk SetCell:='$AA$18', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$18'
SolverSolve
SolverOk SetCell:='$AA$19', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$19'
SolverSolve
SolverOk SetCell:='$AA$20', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$20'
SolverSolve
SolverOk SetCell:='$AA$21', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$21'
SolverSolve
SolverOk SetCell:='$AA$22', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$22'
SolverSolve
SolverOk SetCell:='$AA$23', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$23'
SolverSolve
SolverOk SetCell:='$AA$24', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$24'
SolverSolve
SolverOk SetCell:='$AA$25', MaxMinVal:=3, ValueOf:='0', ByChange:='$V$25'
SolverSolve
End Sub

Merci pour toute aide

Eva

 

[michel_m]

re,

essaies
solversolve(true)

sans gaantie...

Michel_M

 

[WEST]

Merci pour cette solution miraculeuse qui va me faire gagner un temps fou aujourd'hui....

C'est donc tout simplement génial !!!! Qui en plus est efficace !!!

EVA