Bonsoir Michel et tous le Forum,
Merci pour ton aide, mais je ne m’en sors pas ni avec ton script, ni avec l’exemple de l’aide Visuel basic, j’ai pourtant bien coché la macro complémentaire Solveur.xla
Et j’ai ecris :
Sub test()
ActiveSheet.Unprotect
Range("A1").ClearContents
SolverOptions precision:=0.001
SolverOK SetCell:="A2", MaxMinVal:=3, ValueOf:="0", ByChange:="A1"
SolverSolve (True)
ActiveSheet.Protect
End Sub
Mais il me met toujours un message en sourlignant "SolverOptions" ou "SolverOk" si j'enlève le premier:
Erreur de compilation : Sub ou fonction non défini
Merci de venir a mon secours
pmfontaine