emprunt banquaireRésolu

Question

bonjour,



Je voudrai savoir quel est la formule &#224; appliquer pour r&#233;aliser la programation suivante:



Je dois cr&#233;ez un bouton "calcul" dans un doc exel qui affiche le nombre
d'ann&#233;es n&#233;cessaires au remboursement d'un emprunt &#224; taux d'int&#233;r&#234;t
fixe (donn&#233; en pourcentage) et dont le remboursement annuel est fixe
&#233;galement.

Exemple:

Le programme doit calculer automatiquement ann&#233; par ann&#233; le montant emprunt&#233;, l'int&#233;r&#234;t et le reste d&#251;.

Il doit commencer par lire dans la feuille Excel le montant initial
emprunt&#233;, le taux d'int&#233;r&#234;t et le versement annuel de remboursement.



Je dois utiliser dans ma macro Excel les variables suivantes:



Dim annee As Integer

Dim montant As Currency

Dim taux As single

Dim versement As Currency

Dim interet As Currency

Dim reste As Currency



Et initialiser montant, taux et versement &#224; partir des cellules correspondantes de ma feuille Excel.



montant=cells(2,2)

taux=(2,3)

versement=cells(2,4)



Je devrai utiliser une boucle tant que.

While montant>0

...

Wend



Je suis d&#233;butant et remercie vivement les personnes qui pouront me consacrer de leur temps et de leur savoir.

cordialement

jpleroisse · Accepted Answer

Bonjour,



Pour l'exemple ,j'ai mis 120000 en Cells(2,2), 12.5% en Cells(2,3) et
2000 en cells(2,4). En Cells(2,6) j'ai le nombre de mois &#224; rembourser
(95).



Sub Remboursement()

Dim Fval, Pval, APR, Payement, ParType, TotPmts

Const ENDPERIOD 0, GEGINPERIOD 1

Pval = Cells(2, 2).Value 'Somme emprunt&#233;e

APR = Cells(2, 3).Value  'Taux d'int&#233;r&#234;t

If APR > 1 Then APR = APR / 100 'Convertit au format appropri&#233;

Payement = Cells(2, 4).Value 'Montant du remboursement

ParType = ENDPERIOD 'Remboursement d&#233;but de mois

TotPmts = NPer(APR / 12, -Payement, Pval, Fval, ParType)

If Int(TotPmts) <> TotPmts Then TotPmts = Int(TotPmts) + 1

'Nombre de mois pour rembourser

Cells(2, 6).Value = TotPmts

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez r&#233;ponse Accept&#233;e.

geoff27 · Answer

Merci d'avoir r&#233;pondu aussi rapidement &#224; ma question, je vais vite essayer &#231;a!

Cordialement

geoff27 · Answer

Merci cela fonctionne tr&#233;s bien!



Mais sans vouloir trop en demander j'aimerai savoir si il serai possible d'afficher ann&#233;e apr&#233;s ann&#233;e les op&#233;rations:

 exemple

 Emprunt de 1000 euros, int&#233;ret de 5%, Remboursement annuel et fixe de 200 euros.



il faudrai que le tableau excel apr&#233;s avoir rentrer des valeurs et
avoir appuyer sur un bouton "calcul" affiche quelque chose comme &#231;a.



ANNEE              
  MONTANT EMPRUNTE       
   
INTERET           
REMBOURSEMENT              
RESTANT DU

     
1                          
        
1000.00                       
         
50.00                               
200
                                    
850.00

     
2                                     
850                                      
42.50                               
200                                     
692.50

     
3                                     
692.50                                 
34.63                               
200                                     
527.13

     
4                                     
527.13                                 
26.36                               
200                                     
353.48

     
5                                     
353.48                                 
17.67                               
200                                     
171.16

     
6                                     
171.16                                   
8.56                               
179.71                                     
0

    



Je remercie par avance les personnes qui pourront &#233;ventuellement m'apport&#233; une solution.

cordialement

Emprunt banquaire

3 réponses

Discussions similaires