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