Je souhaite placer une suite de date/heure espacées d'une quart d'heure dans une colonne de mon classeur Excel.

Je rencontre un tout petit "problème" de représentation.
Voici une partie de la macro qui pose problème. La colonne 2 a été ajoutée pour mettre le problème en évidence.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Show()
Dim xDate As Date, xRow As Integer
 
' ça marche pô !
xDate = DateAdd("n", 1320, DateValue(Date))       ' aujourd'hui, 22:00
For xRow = 1 To 16                                ' 4:00
 Cells(xRow, 1) = xDate
 Cells(xRow, 2) = Day(xDate)
 xDate = DateAdd("n", 15, xDate)
Next
 
End Sub
Voici la version qui fonctionne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Show2()
Dim xRow As Integer
 
' affichage correct
Cells(1, 3) = DateAdd("n", 1320, DateValue(Date)) ' aujourd'hui, 22:00
For xRow = 2 To 16                                ' 4:00
 Cells(xRow, 3) = DateAdd("n", 15, Cells(xRow - 1, 3))
Next
 
End Sub
J'ai un souci avec la première version du code.
Voici les résultats obtenus par les deux macros pour les lignes 8 à 10.

25/03/2011 23:45 | 25 | 25/03/2011 23:45
25/03/2011 00:00 | 26 | 26/03/2011 00:00
26/03/2011 00:15 | 26 | 26/03/2011 00:15

Fort, non ?!?

Deux questions, donc !

1. Vous avez le même truc bizarre en A9 ?
2. Qu'est ce que j'ai raté ?

PS : la macro réelle représente un mois quart d'heure par quart d'heure et j'ai le problème autant de fois qu'il y a de jours.

Merci du temps que vous passez à m'aider.

Gabriel