[VBA] [Excel] Remboursement d'un emprunt

bonjour à tous et merci de lire ce message

je suis debutante et j'ai un probleme urgent à resoudre concernant la création d'un macro VBA utilisé en Excel ;je dois créer un bouton qui affichera le nombre d'années nécessaires au remboursement d'un emprunt à un taux d'interet fixe et dont le remboursement annuel est fixe égalempent.J'ai plusieurs variables à utiliser

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim annee As Integer 'annee de remboursement Dim montant As Currency 'montant emprunté Dim taux as Single 'taux d'interet (pourcebtage) Dim versement As Currency 'remboursement annuel Dim interet as Currency ' Interets de l'anne courante Dim reste As Currency 'Reste du   en utilisant While montant>0 'tant que le montant emprunté n'est pas nul   '.... Wend

---

Je vous remercie de tout coeur à tous ceux qui trouveront un peu de temps pour m'aider.


Bonnes fetes de fin d'année

Salut

Tu peux obtenir tout ça avec les formules financières dans les cellules.

Bonjour, et bienvenue sur ce forum,

Merci de jeter un oeil aux règles du forum, et d'éditer votre message d'origine sur ce post afin de spécifier un titre explicite. L'usage des balises "code" est également requis pour encadrer votre code ;)

Bonjour,
Tu peux utiliser la fonction NPer.
Un exemple.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub CommandButton1_Click() Dim FVal, PVal, Apr, Payement, ParType, TotPmts, Fmt Const EndPeriod = 0, BeginPeriod = 1 FVal = 0 PVal = InputBox("Quelle sommes voulez-vous emprunter ?") Apr = InputBox("Quel est le taux d'intérêt de votre emprunt ?") If Apr > 1 Then Apr = Apr / 100 Payement = InputBox("Quel montant, désirez-vous rembourser par mois ?") ParType = MsgBox("Effectuez-vous les remboursement " & _ "en fin de mois ?", vbYesNo) If ParType = vbNo Then ParType = BeginPeriod Else ParType = EndPeriod End If TotPmts = NPer(Apr / 12, -Payement, PVal, FVal, ParType) If Int(TotPmts) <> TotPmts Then TotPmts = Int(TotPmts) + 1 MsgBox "Il vous faudra " & TotPmts & _ " mois pour rembourser votre emprunt." End If End Sub

---

jpleroisse

merci infiniment pour votre aide