Bonjour,
Je ferai un test comme ça, avec un capital de 10000 euros placés au taux de 10% annuel pour une durée de 5 ans donnera un résultat de 16105,10 euros :
Sub testkfinal()
MsgBox kfinal(10000, 0.1, 5)
End Sub
Function kfinal(ki, tx, duree) As Currency
Application.Volatile
kfinal = Format(ki * (1 + tx) ^ duree, "0.00")
End Function
Sans passer par une fonction personnalisée, la formule VC(Valeurs Capitalisées) peut te donner le même résultat que tu cherches de la façon suivante :
=VC(10%;5;0;-10000)
PS : c'est la notion des intérêts capitalisés avec la fameuse formule : Cn=Co(1+i)^n