Discussion :

[michelandco]

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.

[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

[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?

[LeForestier]

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

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
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+

[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 :

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

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