dbm7 | Voila le code :
Code :
- Function VanillaCP(CP As String, S As Double, K As Double, Vol As Double, r As Double, T As Double, Div As Double) As Double
- Dim d1 As Double, d2 As Double, Nd1 As Double, Nd2 As Double
-
- d1 = (ln(S/K)+(r-Div+(Vol^2)/2)T)/(vol*sqr(T))
- If CP = "C" Then
-
-
-
- End If
- End Function
|
Par contre, je n'ai pas fini la fonction. Quand je passe a la ligne, VBA me surligne le ^et m'affiche un message d'erreur. La fonction marche parfaitement si je retire l'opérateur.
Merci. |