Discussion :

[dana76]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zazaraignée]

Salut

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

[Xo]

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

[leroissejp]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dana76]

merci infiniment pour votre aide