Bonjour ,
Etant relativement novice en vba je dois réaliser un tableau d'emprunt .
Mon but est de générer à l'aide d'un bouton un tableau d'amortissement complet .

Je suis conscient qu'il doit y avoir de nombreuses fautes dans mon code , mais je suis preneur de toute l'aide que vous pourrez m'apporter :

Voila mon code pour l'instant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avance