Problème exécution du Solveur
Bonjour,
J'ai effectué l'enregistrement VBA suivant : il s'agissait d'exécuter le solveur.
J'ai un message d'erreur qui me dit "sub ou function non définie" et me met en jaune l'élément en rouge ensuite. La macro ne s'éxécute pas.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Sub rrr()
'
' rrr Macro
' Macro enregistrée le 12.04.2010 par MARTINEDO
'
'
SolverOk SetCell:="$L$8", MaxMinVal:=1, ValueOf:="0", ByChange:="$L$2"
SolverAdd CellRef:="$L$6", Relation:=3, FormulaText:="$L$7"
SolverOk SetCell:="$L$8", MaxMinVal:=1, ValueOf:="0", ByChange:="$L$2"
SolverSolve
Range("M2").Select
ActiveCell.FormulaR1C1 = "=ROUNDDOWN(RC[-1],0)"
Range("M2").Select
Selection.Copy
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("M2").Select
Selection.ClearContents
End Sub |
Merci par avance de votre aide
Edouard:P
