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