begin process at 2012 02 14 11:22:06
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

emprunt banquaire


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

emprunt banquaire

jeudi 15 décembre 2005 à 23:46:34 | emprunt banquaire

geoff27

bonjour,

Je voudrai savoir quel est la formule à appliquer pour réaliser la programation suivante:

Je dois créez un bouton "calcul" dans un doc exel qui affiche le nombre d'années nécessaires au remboursement d'un emprunt à taux d'intérêt fixe (donné en pourcentage) et dont le remboursement annuel est fixe également.
Exemple:
Le programme doit calculer automatiquement anné par anné le montant emprunté, l'intérêt et le reste dû.
Il doit commencer par lire dans la feuille Excel le montant initial emprunté, le taux d'intérê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 à 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ébutant et remercie vivement les personnes qui pouront me consacrer de leur temps et de leur savoir.
cordialement






vendredi 16 décembre 2005 à 08:56:29 | Re : emprunt banquaire

jpleroisse

Réponse acceptée !
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 à rembourser (95).

Sub Remboursement()
Dim Fval, Pval, APR, Payement, ParType, TotPmts
Const ENDPERIOD = 0, GEGINPERIOD = 1
Pval = Cells(2, 2).Value 'Somme empruntée
APR = Cells(2, 3).Value  'Taux d'intérêt
If APR > 1 Then APR = APR / 100 'Convertit au format approprié
Payement = Cells(2, 4).Value 'Montant du remboursement
ParType = ENDPERIOD 'Remboursement dé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éponse vous convient, cliquez réponse Acceptée.

vendredi 16 décembre 2005 à 10:05:06 | Re : emprunt banquaire

geoff27

Merci d'avoir répondu aussi rapidement à ma question, je vais vite essayer ça!
Cordialement


vendredi 16 décembre 2005 à 17:45:21 | Re : emprunt banquaire

geoff27


Merci cela fonctionne trés bien!

Mais sans vouloir trop en demander j'aimerai savoir si il serai possible d'afficher année aprés année les opérations:
 exemple
 Emprunt de 1000 euros, intéret de 5%, Remboursement annuel et fixe de 200 euros.

il faudrai que le tableau excel aprés avoir rentrer des valeurs et avoir appuyer sur un bouton "calcul" affiche quelque chose comme ç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 éventuellement m'apporté une solution.
cordialement





Cette discussion est classée dans : taux, montant, currency, emprunt, versement


Répondre à ce message

Sujets en rapport avec ce message

fonction Sub [ par coucou ] J'ai un travail dans lequel je dois calculer le taux de change (je rentre le montant et une devise et je la veux dans une autre devise.Et mon résultat [EXCEL]formule pour obtenir le montant des intérêts légaux versés (conflit retard) ? [ par riberas ] BONJOUR? Ma question : Je dois via EXCEL effectuer un calcul pour connaître le montant des intérêts en tenant compte du taux légal. J'ai la formule ma formater un montant [ par ndaseraphin ] slt, Je veux simplement groupe par groupe de 3. exemple si j'ai 1000 il doit m'afficher [b]1 000[/b] . tu vois les 000 sont groupé merci echeancier sous excel [ par golden0302 ] Bonjour, je dois créer un echeancier sous excel 4 colonnes, une mois, l'autre montant de l'echéance, la 3eme : réalisé (a remplir par le montant de l' besoin d'explication [ par lioon12 ] bonjour,je suis debutant en programation particulierement sur vb.net,je desire avoir quelque petit conseil sur un petit projet que je dois faire. Pro Montant du mois [ par Sinsitrus ] Salut et meilleurs voeux! Excusez moi, j'ai un petit soucis sur ce bout de code : [color=green]SQL = " SELECT * FROM Depense WHERE cdate(Depense.Dat Datagridview [ par koukou09 ] slt tous le monde j'ai un datagridview principale à la sélection d'une ligne(càd filtrage) 3 autre datgridview s'affiche dont chacun contient un champ [déplacé VB.NET -> VBA] amortissement emprunt bancaire [ par dounette30 ] bonjour, je suis totalement novice dans la programmation vba, mais je dois réaliser un projet où en répondant à 3 questions (durée et montant de l'em


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,544 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales