Création échéancier en VBA

Version imprimable

09/10/2007, 14h37
landoltp

1 pièce(s) jointe(s)

Création échéancier en VBA

bonjour,
dans le cadre de mon travail de diplome je dois faire un programme sur VBA qui me permette de créer un échéancier. J'ai réussi à faire quelque chose qui fonctionne (mélange de formules excel et de VBA) mais le problème c'est qu'il faudrait que ce soit uniquement du VBA et là le souci c'est que je ne sais pas comment m'y prendre.
J'ai mis le fichier que j'ai fait en attachement. Si quelqu'un aurait une idée de comment procéder, je l'en remercie d'avance.
09/10/2007, 15h06
Drost

Bonjour,

Les personnes qui sont sur developpez.com, sont la pour t'aider mais il faut aussi que tu y mettes du tien!

Explique ce que doit faire ton application dans les grandes lignes et ce que tu souhaites faire faire à la macro, etc...

Avec des explications claires ont obtiens des réponses claires!

A bon entendeur' :P
09/10/2007, 15h29
landoltp

Désolé pour le manque d'explication.
Donc idéalement ma macro devrait me créer un échéancier à partir des données Montant du prêt, Taux d'int., Durée du prêt, Date de début et période de grâce.
Il faudrait que dans la première colonne j'aie les dates des paiements qui sont mensuels, le premier un mois après la date de début du prêt (et ils ne peuvent pas tomber le week-end, donc si ca tombe un samedi le paiement doit être effectué le vendredi et pour le dimanche, le lundi).
Et dans la deuxième colonne, le montant des paiements, dont la formule est égale à:

(Montant du prêt * taux d'int.)/(1-(1+taux d'int.)^(-durée du prêt))

mais s'il y a une période de grâce, par exemple 2 mois, il n'y aura que les intérêts qui seront payés pour ces 2 premiers mois.

voilà, j'espère que c'est plus clair. Merci beaucoup
09/10/2007, 16h28
Drost

Re,
As tu de bonne connaissances en VBA?

Je te propose de mettre en place un userform pour recuperer toute les données liés au pret. Des que celles ci sont saisies et valider , cela via du code te créera ton tableau pour la gestion du pret.
Pour les dates je penses qu'il n'y a pas trop de soucis, tu peut créer des conditions qui te permettrons si cela tombe un samedi de faire Date +2 et si c'est un dimanche Date +1.
Apres en ce qui concerne la periode de grace, tu n'as qu'a faire remplir cela dans un champs de ton userform pour que cela soit bien pris en compte dans ta formule (via une condition).
09/10/2007, 16h40
random

et pour les jours fériés ?

14 juillet 15 aout ascencion ??

Un certain nombre de question tu fais

Coût du prêt=11326.53 est ce à dire que les intérêts de la période de différé sont gratuits ? Auquel cas pourquoi les facturer 4000 € ?

Le 29/06/2008 est un dimanche pourquoi prévoir un paiement ?

Quand on calcule le teg de ton opération on tombe sur 38.89%, ce qui excède le taux d’usure,
Ce qui est un grave délit financier, est ce normal ?

Quiconque consent à autrui un prêt usuraire ou apporte sciemment à quelque titre et de quelque manière que ce soit, directement ou indirectement, son concours à l'obtention ou à l'octroi d'un prêt usuraire ou d'un prêt qui deviendrait usuraire au sens de l'article L. 313-3 du fait de son concours est puni d'un emprisonnement de deux ans et d'une amende de 45000 euros ou de l'une de ces deux peines seulement

il est bien évident que toute personne qui va t'aider risque cette peine
09/10/2007, 16h53
Drost

C'est un point auquels je n'avais pas du tout pensez!!!!!!

Je pense que les exceptions pour les jours fériés fixes il n'y aura pas de problème c'est pour ceux qui ne sont pas fixes ou cela va devenir bien plus compliqué! :(
09/10/2007, 17h12
random

pour les jours fériés tu as deux solutions
la fonction jour férié d'excel (nécessite une saisie annuelle)
ou http://www.developpez.net/forums/sho...d.php?t=403854
10/10/2007, 13h46
landoltp

merci pour vos réponses, pour commencer non je n'ai pas de très bonnes connaissances de VBA, mais pour le userform, le problème c'est que j'ai une base de données d'environ 300'000 clients, donc ce que je voulais faire c'était que mon code aille prendre automatiquement les valeurs dans le fichier et qu'il me fasse les calcus puis qu'il me les retransmette dans un tableau en fonction de la date (mais ca il faudra que je le fasse une fois que j'aurai réussi à créer l'échéancier en VBA).

pour ce qui est de la question du coût du prêt, il y a un petit problème dans le fichier, en fait pour les périodes de différé, il n'y a l'int. à payer (pas pris en compte dans mon fichier Excel, désolé pour l'erreur).

par contre pour ce qui est du teg (qui signifie quoi? je suis suisse on utilise peut-être pas les mêmes noms), moi j'arrive à un taux d'environ 15,3% (somme des paiements constants/montant du prêt)-1 * 100
pour ce qui est du fond de garantie ça représente une assurance en cas de non-paiement et c'est remboursé une fois que l'emprunt a été totalement remboursé (pardon de pas l'avoir expliqué plus tôt).

finalement c'est vrai qu'il y a un souci pour ce qui est des jours fériés, mais je fais ça pour une institution de microfinance au Bénin et je ne connais pas exactement leurs jours fériés, donc pour l'instant il faudrait juste éviter les week-ends...

merci pour vos réponses

cela pourrait ressembler à ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Sub Macro1()
Const fdg As Double = 0.1
Dim montant As Double
Dim tau As Double
Dim dur As Integer
Dim dep As Date
Dim differ As Single
Dim maf As Worksheet
Dim index As Long
Dim rbt As Currency
Dim jour As Date
    Set maf = Sheets("feuil1")
    maf.Range("A18:F419").ClearContents
    montant = maf.Range("d4")
    tau = maf.Range("d5")
    dur = maf.Range("d6")
    differ = maf.Range("d8")
    rbt = maf.Range("f10")
    dep = maf.Range("d7")
    For index = 1 To differ + dur
    maf.Range("a" & index + 17) = index
    jour = DateSerial(Year(dep), Month(dep) + index, Day(dep))
    if weekday(jour,2)=6 then jour=jour-1
    if weekday(jour,2)=7 then jour=jour+1
 
    maf.Range("b" & index + 17) = Format(jour, "dddd")
    maf.Range("c" & index + 17) = jour
        If index <= differ Then
        maf.Range("d" & index + 17) = montant * tau / 1200
        maf.Range("e" & index + 17) = montant * fdg / (dur + differ)
        maf.Range("f" & index + 17) = (montant * tau / 1200) + (montant * fdg / (dur + differ))
        Else
        maf.Range("d" & index + 17) = rbt
        maf.Range("e" & index + 17) = montant * fdg / (dur + differ)
        maf.Range("f" & index + 17) = rbt + (montant * fdg / (dur + differ))
        End If
        Next index
 
End Sub

ps pour les dates d'échéance il faudra être beaucoup plus précis

10/10/2007, 16h25
landoltp

merci énormément, ca m'aide beaucoup.

pour les dates, si ca tombe un samedi, le paiement doit être effectué le vendredi d'avant et si c'est un dimanche, le lundi suivant. est-ce que c'est ca que tu voulais savoir?

j'ai été voir le calendrier
http://www.developpez.net/forums/sho...d.php?t=403854
mais y comprends pas grand chose et c bien plus poussé que ce que je veux faire il me semble... mais encore merci en tout cas
10/10/2007, 16h43
random

j'ai modidié en conséquence
10/10/2007, 16h51
landoltp

merci beaucoup, ca marche parfaitement