Utilisation du solveur Excel dans une macro

Version imprimable

16/10/2007, 14h38
michelandco

Utilisation du solveur Excel dans une macro

Bonjour,

Quelqu'un connaîtrait-il la ligne de commande à mettre dans le script VBA suite à l'enregistrement d'une macro faisant appel à l'utilisation du solveur.
Le code généré automatiquement par Excel (Solver (ok)) lors de l'enregistrement de la macro n'est pas bon. Merci d'avance.
17/10/2007, 07h40
SilkyRoad

bonjour

De mémoire il me semble qu'il existe un bug Microsoft.
L'enregistreur de macro écrit solverOk, mais il faut le modifier manuellement par solvOk pour que ça fonctionne.
idem pour SolverAdd par SolvAdd ... etc ...
(non testé)

bonne journée
michel
19/10/2007, 11h15
michelandco

Bonjour,

J'ai fais la manip' proposée, malheureusement sans succès. C'est apparement plus bugger qu'on pourrait l'imaginer=> autres solutions possibles?

Bonjour,
Bout de code trouvé sur Google qui peu t'aider sur la syntaxe :P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
SolverReset
   SolverOptions precision:=0.005
 
      ' la typo est un entier
   SolverAdd CellRef:=Range("$AJ$" & rayonini & ":$AJ$" & taille), Relation:=4
      ' la typo est superieur ou egal a 1
   SolverAdd CellRef:=Range("$AJ$" & rayonini & ":$AJ$" & taille), 
Relation:=3, FormulaText:=1
      ' le lineaire a une contrainte max
   SolverAdd CellRef:=Range("$AN$1"), Relation:=2, FormulaText:=Range("$AO$1")
      ' la typo est superieur ou egal a la typo mini
   SolverAdd CellRef:="$AJ$" & rayonini & ":$AJ$" & taille, Relation:=3, 
FormulaText:="$AG$" & rayonini & ":$AG$" & taille
      ' la typo est inferieur ou egal a la typo maxi
   SolverAdd CellRef:="$AJ$" & rayonini & ":$AJ$" & taille, Relation:=1, 
FormulaText:="$AF$" & rayonini & ":$AF$" & taille
   SolverOk SetCell:="$AM$1", MaxMinVal:=1, ByChange:="$AJ$" & rayonini & 
":$AJ$" & taille
 
   SolverSolve userFinish:=True

A+

20/10/2007, 12h10
Michel_M
Bonjour à tout le monde:

Ce code-exemple fonctionne chez moi ( les parametres du solveur sont définis manuellement sur la feuille excel: il n'y a pas besoin de les redéfinir comme dans l'exemple fourni google fourni ci-dessus); il faut cocher la référence solveur.xls dans outil-références de l'éditeur VBA.
Code:

1 2 3 4 5 ActiveSheet.Unprotect Range("volume").ClearContents SolverOk SetCell:="marge", MaxMinVal:=1, ValueOf:="0", ByChange:="volume" SolverSolve (True) ActiveSheet.Protect
bon WE