Bonjour à tous,
 
 
Je suis en train de travailler sur un pricer d'option en finance. J'ai trouvé toutes les modalités de codages dans application financière sur VBA.
Il s'avère que j'ai un problème à touver le codage de la maturité:
 
Mon pricer est sous userform. J'ai crée une zone de liste modifiable pour le n°de jour ainsi que pour le mois. Pour les années c'est une toupie.
 
Je voudrais pouvoir trouver le codage afin  de calculer la distance en fractions d'années séparant la date d'aujourd'hui de la date d'échéance saisie par l'utilisateur dans la userform.
 
Voici le codage que je conseil le bouquin le problème c'est que cela ne marche pas:
 
Public Function Maturité()
 
DateTexte = CStr(Jour.Value) & "/" & Mois.Value & "/" & CStr(Contenu_Année.Value)
 
Maturité = (CDate(DateTexte) - Date) / 365
 
End Function
 
Le problème en plus c'est que cette durée intervient dans une autre fonction sous la lettre "T" et non "Maturité". Je pensais donc qu'il faut la remplcer par  la lettre "T()".
 
Voyez vous une erreur de programmation dans ce code????
 
 
Merci à tous de votre aide.
 
 
 
 
 
 

 
C'est à dire ?

Hello,
 
C'est à dire que lorsque j'appuie sur le bouton de mon pricer avec le code suivant:
 
Private Sub Pricer1_Click()
If TypeCall.Value = True Then
TypeOption = "Call"
Else
TypeOption = "Put"
End If
S = Val(Cours.Value)
K = Val(Strike.Value)
r = Val(Rf.Value)
sigma = Val(Volat.Value)
Prix1.Value = Round(Pricers.BS_STD(TypeOption, S, K, r, sigma, Maturité()), 4)
End Sub
 
Un message me marquant Erreur avec débogage...
et me mets en jaune cette ligne
 
DateTexte = CStr(Jour.Value) & "/" & Mois.Value & "/" & CStr(Contenu_Année.Value)
 
 
 
qui provient de la fonction pour calculer la maturité suivante:
 
Public Function T()
 
DateTexte = CStr(Jour.Value) & "/" & Mois.Value & "/" & CStr(Contenu_Année.Value)
 
T = (CDate(DateTexte) - Date) / 365
 
End Function
 
Merci  de ton aide

Sais tu d ou viens ce problème?? je suis pas un crack du VBA... Merci bcp

Desole c'est ca la Fonction qui deconne...
 
Public Function Maturité()
 
DateTexte = CStr(Jour.Value) & "/" & Mois.Value & "/" & CStr(Contenu_Année.Value)
 
Maturité = (CDate(DateTexte) - Date) / 365
 
End Function

au moment ou ton programe met en jaune la ligne suivante :

 
peut tu balader ton curseur de souris sur les valeurs de Jour.Value, Mois.Value , puis Contenu_Année.Value ?
 
bref ou est ce que tu renseigne cette date necessaire pour le calcul de maturité ?
dans ton userform ?
si ton userform s'appele par exemple "frmParametre" peux tu tester rajouter son nom devant les valeurs :

 
@+

Salut Xav,
 
 
Merci bcp pour ton aide ca marche... Le pire c ke ce code faux etait dans un bouquin...
 
Mais bon c cool je te remercie infiniment...
 
A plus

Salut à tous,
 
J'ai acheté le même Livre qu'Ilan et je suis également bloqué au même niveau, sur la fonction utilisant CDate.
 
J'ai suivi les conseils de Xav mais le Debogage m'affiche cette fois ci une erreur sur la derniere ligne de la fonction.
 
Je reprends la fonction donnée par Ilan:
 
Public Function Maturité()  
 
DateTexte = CStr(UserForm.Jour.Value) & "/" & UserForm.Mois.Value & "/" & CStr(UserForm.Contenu_Année.Value)  
 
Maturité = (CDate(DateTexte) - Date) / 365  
 
End Function
 
La derniere ligne semble poser probleme: en cliquant sur CDate il m'affiche incompatibilité de type (erreur 13)
 
Voyez vous où pourrait se situer l'erreur??
 
Merci beaucoup de votre aide

CDate() dépend du format régional des dates défini pour tout Windows. Parfois, il faut mettre le jour avant le mois, et parfois l'inverse, et peut-être aussi que parfois l'année devrait avoir 2 chiffres et parfois 4 chiffres.

Merci Olivthill de te pencher sur mon problème. Ca marche impecc!
 
Le poste que j'utilisais affiche les dates US mais il y avait un second probleme. J'avais attribué au combobox Mois les valeur Janvier...Décembre et je ne sais pas pourquoi mais ce n'est pas reconnu par la fonction. J'ai donc changé les par les nombres de 1 à 12.
 
Encore un grand merci

bonjour, jai besoin de votre aides je suis entrain de chercher comment calculer la prime une option exotique de type Auto-call définie sur l'indice CAC40 dont la maturité ainsi que le payoff dépendent de la réalisation de certains événements ( un tableau de condition quoi) il est demander de calculer la prime de cette option en 1- Calculez la prime de l'option avec les différentes approches suivantes :  
a) Utilisation du générateur de variable gaussien d'Excel
b) Utilisation du générateur de Box muller  
c) Utilisation de b) + utilisation technique de réduction de variance par l'approche antithétique  
il faut programmer sur VBA
pouvez vous m'aider  

Non vu que la seule chose que j'ai compris de ton post c'est "VBA".

Ouh le bel ennonce d'exercice