Discussion :

[atodjalagni]

je suis entrain de créer une application de gestion de crédits, mais j'ai un peu de soucis pour la génération des plan de remboursement des crédits à echeance multiple

[User]

Bonjour,

Il y a plusieurs possibilités, la 1ère qui me vient c'est d'utiliser une table temporaire avec les champs dateRemb, MontantRemb....

Puis d'alimenter cette table en VBA, en ouvrant un recordset, et en parcourant une boucle, avec à chaque passage un ajout de la dateRemb, et du montant MontantRemb, en fonction de la formule des remboursement.

Pour la formule des remboursement créer une fonction qui pourrait prendre en argument le début de la simulation, avec le montant global à rembourser, un taux, la date concernée et qui renverrait le montant à rembourser à cette date.

Voilà l'idée grossière,

L'autre possibilité à base de requête nécessite une table pour enregistrer les indices de mensualités (T_Remb), des fonctions pour les calculs des remboursements :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function EvalReste(C As Currency, M As Currency, t As Double, N As Long) As Currency
EvalReste = ((1# + t) ^ N) * (C - (M / t)) + (M / t)
 
End Function
 
Public Function EvalRemb(C As Currency, t As Double, N As Long) As Currency
EvalRemb = C * ((t / (1 - ((1 + t) ^ (-N)))))
 
End Function

Cf. j'ai pris les formules sur le net, pour des remboursements fixes.

Et une requête paramétrée basée sur la table d'indices et utilisant les fonctions pour générer les résultats :

Code sql :

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

1
2
3
4
PARAMETERS [C] Currency, [t] Double, [N] Long;
SELECT T_Remb.IdRemb, EvalRemb([C],[t],[N]) AS MntRemb, EvalReste([C],[MntRemb],[t],[IdRemb]) AS Reste
FROM T_Remb
WHERE (T_Remb.IdRemb)<=[N];

Cdlt,

[User]

Bonsoir,

Bien sûr, l'échéance est évaluée en fonction de l'indice de remboursement mensuel et de la date initiale.

N'oubliez pas nous faire un retour d'expérience