Discussion :

[biilou]

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 :

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

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.

[jfontaine]

Bonjour,

Pour commencer, l'énoncé parle d'une fonction, et la tu part sur une procédure qui semble servir d'interface avec l'utilisateur.
Cela me semble être hors sujet.

Un peu de lecture qui devrait t'aider.
http://silkyroad.developpez.com/vba/fonctions/
http://mhubiche.developpez.com/vba/f...ions/datetime/

[biilou]

Bonjour,

Merci beaucoup, je vais lire tout çà et j'espère résoudre mon exercice.

PS : Je laisse la discussion ouvert au cas où j'aurai besoin de revenir vers vous.

[zealot37]

Bonjour,

biilou, tu pourras aussi partager ta solution (ou la correction de ton prof d'info ), ça pourrai servir à d'autres

[biilou]

Bonjour,

Je reviens vers vous car je n'y arrive pas. J'ai vraiment essayé mais peu importe j'ai tout le temps l'impression qu'il y a 10000 possibilités pour faire mon exercice alors que d'après ce que j'ai compris il y en a que une seule.
Même après avoir lu les tutos vba je suis perdu. J'ai des idées mais n'arrivent pas à les appliquer parce que je n'ai aucune base en vba. Pour moi je voulais procéder de cette manière :
étape 1 : arriver à enlever un mois à une date donnée (fonction dateadd)
étape 2 : réaliser une boucle qui me permettre d'enlever un mois à cette date donnée jusqu'à que la période soit atteint (3 = 3 mois, 6 = 6mois...) avec la fonction while.
étape 3 : afficher cela en forme de tableau sur une feuille excel.

Je n'arrive même pas à faire la première étape.

J'en viens à ma requête, serait il possible de me mettre sur le bon chemin (ex : que et où dois-je utiliser function, sub, dateadd, dateserial....) svp?

Je ne demande en aucun cas de faire le travail à ma place je suis prêt à tout faire tout seul mais j'ai l'impression que ça va me prendre des années si je ne suis pas aidé.

Merci beaucoup.

[jfontaine]

Pour l'étape 1, je pense qu'en faisant f1 sur l'instruction DateAdd tu devrais trouver la solution
Quand tu auras compris l'étape 1 tu devrais trouver l'étape 2 avec DateAdd (a moins que la boucle soit obligatoire)

Dis nous quand tu en sera la