Discussion :

[edouardmartin]

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 :

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