Création tableau avec fonction PMT

Version imprimable

28/06/2015, 14h32
daddygraffiti

1 pièce(s) jointe(s)

Création tableau avec fonction PMT

Bonjour,

Dans le fichier ci-joint, il y a une macro pour calculer un tableau d'amortissement via la fonction PMT et qui utilise un loop.

J'aimerai faire la même chose mais avec un tableau ayant à chaque fois : 6 colonnes et un nombre de ligne égale à la maturité du prêt.
En bref, remplacer le loop par un tableau multidimensionnel avec 6 dimensions.

Pouvez-vous m'indiquer le code ?

Merci.

1 pièce(s) jointe(s)

Bonjour,

Peut être comme cela

Code:

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
Sub forum()
LigDeb = 6
For j = 2 To 7
  Set Rdepart = Cells(2, j)
  interet = Rdepart.Offset(0, 0)
  maturite = Rdepart.Offset(1, 0)
  principal = Rdepart.Offset(2, 0)
  pmtformula = Pmt(interet, maturite, -principal, , 0)
  '---
  For i = 1 To maturite
    intpaye = principal * interet
    principalpaye = pmtformula - intpaye
    balancefi = principal - principalpaye
 
    Cells(i + LigDeb, 4).Value = i 'Year number
    Cells(i + LigDeb, 5).Value = principal
    Cells(i + LigDeb, 6).Value = pmtformula
    Cells(i + LigDeb, 7).Value = intpaye
    Cells(i + LigDeb, 8).Value = principalpaye
    Cells(i + LigDeb, 9).Value = balancefi
 
    principal = balancefi
  Next i
  LigDeb = LigDeb + i
Next j
End Sub

29/06/2015, 15h54
daddygraffiti

Merci PMO2017 pour ta réponse rapide et le code.
Bonne semaine !