Probléme code VBA
Bonjour,
Je cherche a pricer une option VBA voici mon code :
Function optionvente(S, X, rf, sig, T, n)
delt = T / n
u = Exp(sig * sqrt(delt))
d = Exp(-sig * sqrt(delt))
r = Exp(rf * delt)
pu = (r - d) / (u - d)
pd = 1 - pu
Dim rendementoptionfin() As Double
Dim rendementoptionmilieu() As Double
ReDim rendementoptionfin(n + 1)
For état = 0 To n
rendementoptionfin(état) = Application.Max(X - S * u ^ état * d ^ (n - état), 0)
Next état
For i = n - 1 To 0 Step -1
ReDim rendementoptionmilieu(i)
For état = 0 To i
ReDim rendementoptionmilieu(i)
For état = 0 To i
rendementoptionmilieu(état) = pd * rendementoptionfin(état) + pu * rendementoptionfin(état + 1)
Next état
ReDim rendementoptionfin(i)
For état = 0 To i
rendementoptionmilieu(état) = rendementoptionfin(état)
Next état
Next i
optionvente = rendementoptionmilieu(0)
MsgBox (optionvente)
End Function
mais le problème c'est quand je bascule sous EXCEL pour exécuter la macro il m'affiche erreur veuillez slvp m'aidez c"est pour un TP ,et merci d'avance.
Je cherche a pricer une option VBA voici mon code :
Function optionvente(S, X, rf, sig, T, n)
delt = T / n
u = Exp(sig * sqrt(delt))
d = Exp(-sig * sqrt(delt))
r = Exp(rf * delt)
pu = (r - d) / (u - d)
pd = 1 - pu
Dim rendementoptionfin() As Double
Dim rendementoptionmilieu() As Double
ReDim rendementoptionfin(n + 1)
For état = 0 To n
rendementoptionfin(état) = Application.Max(X - S * u ^ état * d ^ (n - état), 0)
Next état
For i = n - 1 To 0 Step -1
ReDim rendementoptionmilieu(i)
For état = 0 To i
ReDim rendementoptionmilieu(i)
For état = 0 To i
rendementoptionmilieu(état) = pd * rendementoptionfin(état) + pu * rendementoptionfin(état + 1)
Next état
ReDim rendementoptionfin(i)
For état = 0 To i
rendementoptionmilieu(état) = rendementoptionfin(état)
Next état
Next i
optionvente = rendementoptionmilieu(0)
MsgBox (optionvente)
End Function
mais le problème c'est quand je bascule sous EXCEL pour exécuter la macro il m'affiche erreur veuillez slvp m'aidez c"est pour un TP ,et merci d'avance.
