Calculatrice pour emprunt à taux fixe + tableau d'amortissement

Soyez le premier à donner votre avis sur cette source.

Vue 18 728 fois - Téléchargée 1 014 fois

Description

Un petit programme écrit lorsque j'avais besoin de contracter un emprunt à taux fixe pour acheter une maison.

Il comporte une forme principale, plus une secondaire pour le tableau d'amortissement, et une tertiaire d'info.

Je file en Source le contenu du boutton de commande principal, le reste peut être consulté dans les fichiers fournis dans le zip.

Merci pour vos commentaires et vos notations.

Bon développements à tous ;)

Source / Exemple :


'Aquisition des informations
ca = Val(Text1)
n = Val(Text2)
tx = Val(Text3)
If tx = 0 Then tx = 0.0000001
txm = tx / 100 / 12

'Amortissement le 1er mois
a(1) = ca * txm / ((1 + txm) ^ n - 1)

'Intérêt 1er mois
i(1) = ca * txm

'somme prélevée mensuelle
pr = i(1) + a(1)

'Début de la boucle du tableau d'amortissement
c(1) = ca
ttint = 0
For xx = 2 To n
    c(xx) = c(xx - 1) - a(xx - 1)
    i(xx) = c(xx) * txm
    a(xx) = pr - i(xx)
    ttint = ttint + i(xx)
Next xx

derr = a(n) - c(n)
a(n) = c(n)
i(n) = i(n) + derr

If tx = 0.000001 Then
    i(1) = 0
    For xx = 2 To n
        a(xx) = c(1) / n
        i(xx) = 0
        c(xx) = c(xx - 1) - a(xx)
    Next xx
    ttint = 0
    derr = 0
    a(n) = c(n)
End If

ttint = ttint + i(1) + derr

'Affichage
Text4 = Int(ttint * 100 + 0.5) / 100
If Option1.Value = True Then
    Text7 = Int((Val(Text6) * 100 / Val(Text1)) * 100) / 100
Else
    Text6 = Int((Val(Text7) / 100 * Val(Text1)) * 100) / 100
End If
Text8 = Val(Text6) * Val(Text2)
Text5 = Int((pr + Val(Text6)) * 100 + 0.5) / 100

Text11 = Val(Text4) + Val(Text8)

'Taux d'endettement
Label15 = Str$(Int(((Val(Text10) + Val(Text12) + Val(Text5)) * 100 / Val(Text9)) * 100) / 100)

If Val(Label15) < 33.1 Then
    Label15.ForeColor = &H8000&
Else
    Label15.ForeColor = &H80&
End If

deb = 1
fin = 2

Conclusion :


Je donne rarement des noms aux objets et aux formes dans ce genre de petit programme que j'écris en moins d'une demi heure; je vous prie de bien vouloir m'excuser pour celà.

En espérant tout de même qu'il vous soit utile.
Amitiés

Codes Sources

A voir également

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.