Discussion :

[VBANoJutsu]

Salut à tous ,

J'aimerais créer une fonction me permettant d'effectuer un calcul : ((1 + r) ^ -((365 - jourscouru) / 365)) * (coupon + coupon * ((1 - (1 + r) ^ -année) / r) + (VR / (1 + r) ^ année))
avec :
r = taux
jourscouru = un nombre de jours
coupon = un prix (à virgule)
VR = un prix (peut être à virgule)
année = un nombre d'année (peut etre de la forme 5.XX)

Voila ce que j'ai voulu faire (qui ne fonctionne pas of course)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function PrixObligation(r, jourscouru, coupon, année, VR) As Integer
 
 
 
prix obligation = ((1 + r) ^ -((365 - jourscouru) / 365)) * (coupon + coupon * ((1 - (1 + r) ^ -année) / r) + (VR / (1 + r) ^ année))
 
 
End Function

Merci à ceux qui prendront le temps de m'help !

[Philippe Tulliez]

Bonjour,
Ecrire que cela ne fonctionne pas n'aide personne.
As-tu un message d'erreur et si oui lequel, la fonctionne ne renvoie pas le résultat escompté, etc.

Pour ma part, si je me réfère au code affiché, il est clair qu'un message d'erreur a été renvoyé. En effet la fonction se nomme PrixObligation or en ligne 5 du code affiché l'orthographe du nom de la fonction n'est pas respecté (prix obligation)

[VBANoJutsu]

Effectivement j'ai fait une erreur débile ... et désolé pour le titre , je note !

J'ai modifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function PrixObligation(r, jourscouru, coupon, année, VR) As Integer
x = ((1 + r) ^ -((366 - jourscouru) / 366))
a = VR / ((1 + r) ^ année)
b = 1 - ((1 + r) ^ -(année))
 
PrixObligation = x * (c + c * (b / r)) + a
 
End Function

Ca fonctionne, seul hic je trouve 94 et non 115.12
Je crois que mon problème vient de mon exposant
Prenons ici jourscouru = 79
J'aimerais ecrire : (1+r)^(366-79/366= = (1+r)^(287/366)

MODIF :

la seule méthode que j'ai trouvé c'est de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function XXXX(r, jourscouru) As Double
a = 366 - jourscouru
b = a / 366
XXXX = (1 + r) ^ b
 
End Function