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
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.