Bonjour !!
La procédure ci-dessous calcul le prix des mensualités selon un nombre période et un taux d'intêret. Ma question est la suivante : Comment je pourrais faire pour obtenir le calcul inverse ?? Je m'explique : J'ai encore le nombre de mensualite et le taux d'interet. Si je donne exemple un prix de mensualité à 250,00$, comment je peux obtenir le prix du financement ? En fait, je dois faire la formule dans le sens inverse mais comme je ne suis pas excellent en math, je demande de l'aide ici :) !!
Merci et bonne journée !!
----------------------------------------------------------------
Private Sub calculerMensualite()
Dim prixAchat As Single
Dim tauxInteret As Single
Dim periode As Integer
Dim mensualite As Single
Dim somme As Single
Dim tauxMensuel As Single
prixAchat = FormatNumber(CSng(txtFinancement.Text), 2)
tauxInteret = FormatNumber(CSng(txtTauxInteret.Text),2)
periode = CInt(lstNombrePeriode.Text)
tauxMensuel = (tauxInteret / 12) / 100
If prixAchat = 0 And tauxInteret = 0 Then
somme = 0
Else
If tauxInteret <> 0 Then
somme = (prixAchat * tauxMensuel * (1 + tauxMensuel) ^ periode) / ((1 + tauxMensuel) ^ periode - 1)
Else
somme = prixAchat / periode
End If
End If
txtMensualite.Text = FormatNumber(somme, 2)
End Sub