1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
| Private Sub Command_valid_Click()
If option_call.Value = True Then
TypeOption = 1
ElseIf option_put.Value = True Then
TypeOption = -1
Else: MsgBox ("Veuillez sélectionner un type!")
End If
If TypeOption = 1 Then
optiont = "Call"
Else: optiont = "Put"
End If
If avec_div.Value = True Then
optionc = "option avec dividendes"
ElseIf sans_div.Value = True Then
optionc = "option sans dividendes"
Else: MsgBox ("Veuillez sélectionner un type!")
End If
Feuil2.Activate
Feuil2.Range("A100000").End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(0, 0) = d_date
ActiveCell.Offset(0, 1) = V.Value
ActiveCell.Offset(0, 2) = K.Value
ActiveCell.Offset(0, 3) = r.Value
ActiveCell.Offset(0, 4) = d.Value
ActiveCell.Offset(0, 5) = T.Value
ActiveCell.Offset(0, 6) = sigma.Value
ActiveCell.Offset(0, 7) = optiont
If avec_div.Value = True Then
V = Val(V.Value)
K = Val(K.Value)
r = Val(r.Value)
d = Val(d.Value)
sigma = Val(sigma.Value)
T = Val(T.Value)
MsgBox (" Le Prix de votre Option est " & Round(VO1(TypeOption, V, K, r, d, T, sigma), 4) & Chr(13) & Chr(13) & "Veuillez consulter l'historique pour plus de détails sur la sensibilité des paramêtres de l'option")
ActiveCell.Offset(0, 8) = optionc
ActiveCell.Offset(0, 9) = VO1(TypeOption, V, K, r, d, T, sigma)
ActiveCell.Offset(0, 10) = Delta_VO1(TypeOption, V, K, r, d, T, sigma)
ActiveCell.Offset(0, 11) = Gamma_VO1(V, K, r, d, sigma, T)
ActiveCell.Offset(0, 12) = vega_VO1(V, K, r, d, sigma, T)
ActiveCell.Offset(0, 13) = theta_VO1(V, K, r, d, T, sigma)
ActiveCell.Offset(0, 14) = rho_VO1(V, K, r, d, T, sigma)
ElseIf sans_div.Value = True Then
V = Val(V.Value)
K = Val(K.Value)
r = Val(r.Value)
d = Val(0)
sigma = Val(sigma.Value)
T = Val(T.Value)
MsgBox (" Le Prix de votre Option est " & Round(VO2(TypeOption, V, K, r, T, sigma), 4) & Chr(13) & Chr(13) & "Veuillez consulter l'historique pour plus de détails sur la sensibilité des paramêtres de l'option")
ActiveCell.Offset(0, 8) = optionc
ActiveCell.Offset(0, 9) = VO2(TypeOption, V, K, r, T, sigma)
ActiveCell.Offset(0, 10) = Delta_VO2(TypeOption, V, K, r, T, sigma)
ActiveCell.Offset(0, 11) = Gamma_VO2(V, K, r, sigma, T)
ActiveCell.Offset(0, 12) = vega_VO2(V, K, r, sigma, T)
ActiveCell.Offset(0, 13) = theta_VO2(V, K, r, T, sigma)
ActiveCell.Offset(0, 14) = rho_VO2(V, K, r, T, sigma)
End If
Unload Me
End Sub |
Partager