Probléme code VBA
ALAINESS
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
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.
A voir également:
- Probléme code VBA
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
