Excel probleme sur résultat attendu

[neo]

Bonjour,

lors du calcul de l'interet d'un emprunt, excel(97) me retourne une valeur incorrect (3ème ligne)- voir ci-dessous. Est-ce que vous pourriez m'aider ? Merci
NEO

Affichage
Montemprunté Intérêt Remboursement Rest dû
1 000,00€ 50,00 € 200,00 € 850,00
850,00 € 42,5 200,00 € 692,5
692,5 34 625,00 € 200,00 € 527 125,00
...

VBA (calcul du nombre de remboursement d'un emprunt)

Private Sub Calcul_Click()
'Déclaration de variable
Dim annee As Integer 'Année de remboursement
Dim montant As Currency 'Montant emprunté
Dim taux As Single 'Taux d'intérêt
Dim versement As Currency 'Remboursement annuel
Dim interet As Currency 'Intérêts de l'année courante
Dim reste As Currency 'reste dû
Dim i As Integer

'Initialisation des variables

montant = Cells(2, 2)
taux = Cells(2, 3)
versement = Cells(2, 4)

i = 6
annee = 1


While montant > 0
If versement > montant Then
interet = (montant * taux) / 100
versement = montant + interet
reste = montant - versement
End If
interet = (montant * taux) / 100
reste = montant - (versement - interet)

Cells(i, 1) = annee
Cells(i, 2) = montant
Cells(i, 3) = interet
Cells(i, 4) = versement
Cells(i, 5) = reste
montant = reste
annee = annee + 1
i = i + 1

Wend
End Sub

[ol][/ol][ol][li]

 

[bebere]

bonjour Neo

la valeur de taux doit être 0,05

'Initialisation des variables

montant = Cells(2, 2)
taux = Cells(2, 3) 'valeur cellule 5/100
versement = Cells(2, 4)

i = 6
annee = 1


While montant > 0
If versement > montant Then
interet = (montant * taux)
versement = montant + interet
reste = montant - versement
End If
interet = (montant * taux)reste = montant - (versement - interet)

Cells(i, 1) = annee
Cells(i, 2) = Format(montant, '0.00')
Cells(i, 3) = Format(interet, '0.00')
Cells(i, 4) = Format(versement, '0.00')
Cells(i, 5) = Format(reste, '0.00')
montant = reste
annee = annee + 1
i = i + 1

Wend
à bientôt

 

[neo]

Merci Bebere pour ta solution (présentation impeccable), ça fonctionne très bien.

Peux-tu m'expliquer pourquoi il faut préciser le format sur vba ?

Maintenant que je ne suis plus coller à ce problème, je découvre d'autres problèmes
ex :
comment gerer l'erreur qui se produit dans le cas où le versement est inférieur à l'intérêt ??
comment mettre les résultats en euro ?
....

Je vais donc chercher ...et si je n'y arrive pas, je sais maintenant que je peux demander conseil sur ce forum.

Encore un grand merci Bebere

Neo

 

[neo]

Merci Bebere pour ta solution (présentation impeccable), ça fonctionne très bien.

Peux-tu m'expliquer pourquoi il faut préciser le format sur vba ?

Maintenant que je ne suis plus coller à ce problème, je découvre d'autres problèmes
ex :
comment gerer l'erreur qui se produit dans le cas où le versement est inférieur à l'intérêt ??
comment mettre les résultats en euro ?
....

Je vais donc chercher ...et si je n'y arrive pas, je sais maintenant que je peux demander conseil sur ce forum.

Encore un grand merci Bebere

Neo

 

[neo]

Merci Bebere pour ta solution (présentation impeccable), ça fonctionne très bien.

Peux-tu m'expliquer pourquoi il faut préciser le format sur vba ?

Maintenant que je ne suis plus coller à ce problème, je découvre d'autres problèmes
ex :
comment gerer l'erreur qui se produit dans le cas où le versement est inférieur à l'intérêt ??
comment mettre les résultats en euro ?
....

Je vais donc chercher ...et si je n'y arrive pas, je sais maintenant que je peux demander conseil sur ce forum.

Encore un grand merci Bebere

Neo

 

[bebere]

bonsoir Neo

au premier essai les résultats étaient sans décimales,je viens d'essayer à nouveau sans format dans le code
cellules au format standard,et j'ai les résultats formatés('0.00€'),peut-être currency?
donc pour moi aussi ?

à bientôt