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