Calcul d'un prêt

0/5 (2 avis)

Vue 9 060 fois - Téléchargée 853 fois

Description

ce programme calcul :
- la mensualité, si on connaît le capital, le taux et le nombre de mois,
- le taux si on connaît le capital, la mensualité et le nombre de mois,
- le nombre de mois si on connaît le capital, la mensualité et le taux d'intérêt.
la démonstration des formules de calcul sont dans les programmes sources.

Source / Exemple :


démonstartion du calcul de la mensualité d'un prêt:
'C (1 + t) - M
'(C(1+t)-M )(1+t)-M
'C (1 + t) ^ 2 - M(1 + (1 + t))
'(C (1 + t) ^ 2 - M(1 + (1 + t))(1 + t) - M
'C (1 + t) ^ 3 - M(1 + (1 + t) + (1 + t) ^ 2)
'C(1+t)^n-M(1+(1+t)+(1+t)^2+(1+t)^3?(1+t)^n-1)
'La définition de la dernière échéance, c'est qu'à l'issue de celle-ci,
'le capital restant dû vient de s'annuler, ce qui s'exprime par la condition:
'C (1 + t) ^ n - M(1 - (1 + t) ^ n) / (1 - (1 + t)) = 0
'C (1 + t) ^ n = M(-1 + (1 + t) ^ n) / t
'M = Ct(1 + t) ^ n / ((1 + t) ^ n - 1)

Private Sub Commande23_Click()

Me!mensualité1 = Me!capital1 * (Me!taux1 / 1200) * Exp(Me!nombre_mensualité1 * Log(1 + Me!taux1 / 1200)) / (Exp(Me!nombre_mensualité1 * Log(1 + Me!taux1 / 1200)) - 1)

End Sub

Private Sub Commande36_Click()
Dim var_taux1, var_taux2
var_taux2 = 0
var_taux1 = 0.05
 'If (Forms!calcul_prêt_form!capital2 Is Null) Or (Forms!calcul_prêt_form!capital2 = 0) Then
 'Me!capital2 = 270000
'End If
Do While (var_taux1 - var_taux2) <> 0
var_taux2 = var_taux1
var_taux1 = Me!mensualité2 * (1 - Exp(-Me!nombre_mensualité2 * Log(1 + var_taux1))) / Me!capital2

Loop
 
Me!taux2 = 12 * 100 * var_taux1
End Sub

Private Sub Commande46_Click()
Dim var_nombre_mensualité As Integer

var_nombre_mensualité = -Log((Me!mensualité3 - Me!taux3 * Me!capital3 / 1200) / Me!mensualité3) / Log(1 + Me!taux3 / 1200)
Me!nombre_mensualité3 = var_nombre_mensualité
End Sub

Private Sub taux1_AfterUpdate()
' If Me!taux1 Is Null Then
' Me!taux1 = 0
' End If
  
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
GeneticW Messages postés 34 Date d'inscription samedi 3 juin 2006 Statut Membre Dernière intervention 23 avril 2011
12 févr. 2007 à 23:10
cavo789
on pourrais avoir des informations plus exacte a ce sujet stp ?
cavo789 Messages postés 168 Date d'inscription vendredi 9 janvier 2004 Statut Membre Dernière intervention 28 juillet 2009 1
6 févr. 2007 à 12:30
Juste un avis : il existe ce type de fonctions en "standard" dans Excel. En "standard" car il faut ajouter un addin mais qui est fournit par Microsoft.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.