Boucle for d'une date a une autre

Version imprimable

27/06/2016, 13h55
rampage92

Boucle for d'une date a une autre

Bonjour,

Je voudrais creer une boucle for qui commence a une date saisie par l utilisateur et qui se termine aussi par une date saisie par l utilisateur. La boucle for doit etre incremente de mois en mois. cad si l utilisateur saisi 01/01/2000 la boucle doit faire l action le 01/01/2000 ... 01/02/2000 ...01/03/2000 jusqu a la date finale. pouvez vous m aider ?

Un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim Date_Debut As Date, Date_Fin As Date, Temp As Date
        Date_Debut = #1/1/2016#
        Date_Fin = #1/1/2017#
        Temp = Date_Debut
        While Temp < Date_Fin
            MsgBox Format(Temp, "dddd dd/mm/yyyy")
            Temp = Next_Month(Temp)
        Wend
End Sub

Avec la fonction Next_Month suivante :

Code:

1
2
3
4
5
6
7
8
9
10
Function Next_Month(ByVal dt As Date) As Date
    Dim d&, m&, y&
        d = Day(dt): m = Month(dt): y = Year(dt)
        Select Case m
            Case 1 To 11
                Next_Month = DateSerial(y, m + 1, d)
            Case 12
                Next_Month = DateSerial(y + 1, 1, d)
        End Select
End Function

Attention par contre la fonction n'est qu'un exemple et ne prend pas en compte certain cas :
Next_Month(#1/31/2016#) devrait répondre la date du 31 Février 2016 Excel va la remplacé en 3 Mars 2016.

Je te laisse voir le traitement de ce cas directement dans la fonction Next_Month.

27/06/2016, 14h30
parmi

Bonjour,

Est-ce que tes dates peuvent s'étaler sur plusieurs années ?
27/06/2016, 14h46
rampage92

Oui les dates peuvent s etaler sur plusieurs annes. Merci pour votre aide mais je n arrive pas a imbriquer les fonctions... Pour info les dates de debut et date de fin sont respectivement en A1 et B1.
27/06/2016, 14h52
antonysansh

Tu as juste a lancé la procédure Test mais il faut que la fonction Next_Month soit collé dans le module sinon il ne va pas la connaitre.