1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
|
Private Sub Amortissement_constant_Click()
Dim Capital As Double
Dim Peridode As Double
Dim Taux As Double
Capital = Worksheets("Feuil1").Range("C3").Value 'Capital emprunté (Euros)
Periode = Worksheets("Feuil1").Range("C4").Value 'Nombre de périodes (en années)
Taux = Worksheets("Feuil1").Range("C5").Value 'Taux fixe d'emprunt ( en % annuel )
Dim amortissement(), interets(), capital_restant(), total_interets(), Annuite() As Double
Dim xx As Integer
'Le tableaux capital_restant() contiendra le capital restant dû période après période (années après années) en euros.
'Le tableaux interets() contiendra les intérets dus à la banque sur chaque années, en euros.
'Le tableaux amortissement() contiendra le capital amorti/remboursé sur chaque période, en euros.
ReDim amortissement(0), interets(0), capital_restant(0), total_interets(0), Annuite(0)
'Amortissement la 1ere année
amortissement(0) = Capital / Periode
amortissement(0) = Worksheets("Feuil1").Range("D14").Value
'Intérêt 1ere années
interets(0) = Capital * Taux
interets(0) = Worksheets("Feuil1").Range("C14").Value
'somme prélevée annuelle
Annuite(0) = interets(0) + amortissement(0)
'Capital restant à amortir au début de la 1ére Période
capital_restant(0) = Capital
capital_restant(0) = Worksheets("Feuil1").Range("B14").Value
total_interets(0) = 0
total_interets(0) = Worksheets("Feuil1").Range("E14").Value
'Début de la boucle du tableau d'amortissement , il y aura autant de lignes que de périodes saisi par l'utilisateur
For xx = 1 To Periode
capital_restant(xx) = capital_restant(xx - 1) - amortissement(xx - 1)
capital_restant(xx) = Worksheets("Feuil1").Range("B14").Offset(1, 0).Value
interets(xx) = capital_restant(xx) * Taux
interets(xx) = Worksheets("Feuil1").Range("C14").Offset(1, 0).Value
amortissement(xx) = amortissement(0)
amortissement(xx) = Worksheets("Feuil1").Range("D14").Offset(1, 0).Value
totalinterets = totalinterets + interets(xx)
totalinterets(xx) = Worksheets("Feuil1").Range("E14").Offset(1, 0).Value
Next xx
End Sub |