Exercice VBA : Échéancier
Bonjour,
Cela fait 3 heures que je suis sur un exercice vba donné par mon prof d'informatique et rien n'y fait je n'y arrive pas.
L'énoncé de l'exercice :
Exercice 5 : calcul d’échéancier sur un instrument financier
Vous allez calculer les dates de paiement d’un instrument financier qui verse des revenus pouvant être
Trimestriels
Semestriels
Annuels
La fonction s’appellera Schedule. Ses arguments sont
1. La date d’échéance
2. La périodicité des paiements sous forme de nombre entier valant 3 pour une fréquence trimestrielle, 6 si elle est semestrielle, etc.
Le résultat de la fonction sera un tableau de dates.
Vous allez, pour cela, partir de la date d’échéance et revenir en arrière, tous les x mois, à l’aide d’une boucle conditionnelle, jusqu’à ce que vous ayez atteint et juste dépassé la date du jour.
Vous utiliserez les fonctions DateAdd et WeekDay, ainsi évidemment que la valeur Date.
Si une date théorique tombe un WE, vous prendrez le 1er jour ouvré suivant, à moins que cela ne vous fasse passer au mois suivant : dans ce cas vous prendrez le 1er jour ouvré précédent.
Je vous fais grâce du calendrier des jours fériés ISDA.
Voilà pour l'instant ou je bloque :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Sub echeancier()
Dim Dateecheance As Date
Dim Periode As Integer
Dim numero As Integer
numero = 21
MyInput = InputBox("Taper la date d'échéance")
If MyInput = Dateecheance Then 'je veux pourvoir mettre n'importe quelles dates'
MyInput = InputBox("Taper Periode")
If MyInput = 3 Then
While Dateecheance = "???" 'date echeance - 3 mois' Cells(numéro, 6) = "???"
numero = numero + 1
Wend
End If
End Sub |
Je sais que je suis encore très loin du résultat mais comme je n'ai aucune notion en VBA je commence étape par étape.
J'aurais besoin de quelque tuyaux svp.
Je vous remercie pour votre aide.
