fonction SOLVEUR dans macro

M

melissa

Guest
(Re)bonjour,


désolé mais aujourd'hui je fais mes devoirs j'ai donc une autre question
j'ai enregistré une macro qui utilise la fonction solveur mais voilà la macro marche pas pourquoi ?????

Sub Macro10()
'
' Macro10 Macro
' Macro enregistrée le 21/10/2004 par mel
'

'
ActiveWindow.SmallScroll ToRight:=2
SolverOk SetCell:="$C$24", MaxMinVal:=3, ValueOf:="0", ByChange:="$Q$6"
SolverSolve
ActiveWindow.SmallScroll Down:=0
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Range("C26").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=-12
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-12
Range("Q6").Select
ActiveCell.FormulaR1C1 = "=R[5]C[-14]"
Range("Q7").Select
End Sub



Merci une nouvelle fois à tous pour votre super aide....
 
M

Michel_M

Guest
Re

OK, c'est vrai que ma réponse était flou...
Dans l'éditeur VBE à outils | références il faut cocher la référence "solver.xls"

et tu verras dans ton explorateur de projet un nouveau dossier "références" qui renvoit à la macro complémentaire "solver.xla"

A+, bon fin de devoir

Michel
 
Y

Yeahou

Guest
Bonjour Melissa, Michel_m, le forum

il faut avoir coché, avant, le solveur dans les macros complémentaires.
si cela ne marche pas, à partir d'outils/références, tu fais parcourir et tu sélectionnes le fichier solver.xla (ou solver.xls selon les versions) dans le répertoire Programs Files\Office\Macrolib\Solver

Cordialement, A+
 

Statistiques des forums

Discussions
313 009
Messages
2 094 365
Membres
106 005
dernier inscrit
Gabe68