Hello a tous,
Bon je vous explique brievement mon probleme:
J'ai un fichier excel qui price un produit financier en temps reelle. Malheureusement, pour ce type de pricing, j ai besoin d'utiliser un goalseek puisque aucune solution analytique direct n'existe. J'utilise donc un goalseek qui fonctionne tres bien.
Mais...il y a toujours un mais dans ce genre de truc, comme le pricing doit etre realise en live, j'aurais besoin que le goalseek soit lance a chaque recalcul idealement.
J'ai essaye avec Select change, change, calculate et dernierement ce genre de fonction:
Le code est bien execute, le goalseek est lu mais n'est pas execute.....
je precise que si je lance le goalseek a la main, il fonctionne parfaitement.
Merci de votre aide.
PS: Je suis pas en france, mon clavier ne sait pas parler avec les accents sorry guys
Julien
Bon je vous explique brievement mon probleme:
J'ai un fichier excel qui price un produit financier en temps reelle. Malheureusement, pour ce type de pricing, j ai besoin d'utiliser un goalseek puisque aucune solution analytique direct n'existe. J'utilise donc un goalseek qui fonctionne tres bien.
Mais...il y a toujours un mais dans ce genre de truc, comme le pricing doit etre realise en live, j'aurais besoin que le goalseek soit lance a chaque recalcul idealement.
J'ai essaye avec Select change, change, calculate et dernierement ce genre de fonction:
Code:
Public Sub SolverIRS()
Application.EnableEvents = False
Worksheets("Data").Range("X52").GoalSeek Goal:=Worksheets("Data").Range("X53").Value, _
ChangingCell:=Worksheets("Data").Range("Y49")
End Sub
Public Function AutoCalcul(X As Double, Y As Double)
If X <> Y Then
Call SolverIRS
Else
AutoCalcul = "OK"
End If
End Function
Le code est bien execute, le goalseek est lu mais n'est pas execute.....
je precise que si je lance le goalseek a la main, il fonctionne parfaitement.
Merci de votre aide.
PS: Je suis pas en france, mon clavier ne sait pas parler avec les accents sorry guys
Julien