Bonjour,

Pour créer des listes incrémentant des dates "jj/mm/aa hh:mm" suivant le pas de temps désiré, j'ai utilisé le code ci après.
Mais à l'exécution d'un exemple (date début 01/01/2011, nombre de minutes : 15, date de fin 03/01/2011) un bug apparait :
tout va bien jusqu'au changement de jour : ca donne
01/01/2011 23:45
01/01/2011 00:00
02/01/2011 00:15

Je n'arrive pas à régler ce pb. Que faire ? Merci d'avance


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim FirstDate As Date
Dim NextDate As Date
Dim EndDate As Date
 
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "n"
 
FirstDate = InputBox("Entrez une date de début")
ActiveCell.Value = FirstDate
 
Number = InputBox("Entrez le nombre de minutes à ajouter")
NextDate = DateAdd(IntervalType, Number, FirstDate)
 
EndDate = InputBox("Entrez une date de fin")
 
Do While NextDate <= EndDate
    ActiveCell.Offset(1, 0).Activate
    ActiveCell.Value = NextDate
    NextDate = DateAdd(IntervalType, Number, NextDate)
Loop
End Sub