[XL-2007] Problème Fonction DateAdd

[Brasles]

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 :

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

[Qwazerty]

Salut

Essai en utilisant Value2 plutôt que value

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
Sub teste()
Dim FirstDate As Date
Dim NextDate As Date
Dim EndDate As Date
 
Dim IntervalType As String
Dim Number As Integer
Dim Number10 As Double
Dim TheCell As Range
Dim Msg
    IntervalType = "n"
 
    'On pointe la cellule sur laquelle on travail
    Set TheCell = ActiveCell
 
    FirstDate = InputBox("Entrez une date de début")
    TheCell.Value2 = 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
        'On pointe la cellule suivante
        Set TheCell = TheCell.Offset(1, 0)
        'ActiveCell.Offset(1, 0).Activate
        TheCell.Value2 = NextDate
        NextDate = DateAdd(IntervalType, Number, NextDate)
        'TheCell.NumberFormat = "[hh]:mm"
    Loop
End Sub

++
Qwaz