VBA + SOLVER valeur variable

[pasquetp]

Bonjour,

J'ai effectué une macro qui marche plus ou moins:

Sub prix()

s = Application.InputBox("valeur à atteindre?", "valeur à atteindre?")


For a = 3 To 11

SolverOk SetCell:=Cells(a, 15), MaxMinVal:=3, ValueOf:=s, ByChange:=Cells(a, 3)

SolverSolve (True)
Next

End Sub

-----------------------------

si je mets par exemple des prix a virgules comme 1.5 ca marche pas

Pourriez vous voir ce qui ne va pas?

Merci de votre aide

 

[jpb388]

Re : VBA + SOLVER valeur variable

Bonsoir a tous
avec replace ex
s=65,5
s=replace(s,",",".")

s=65.5