Discussion :

[gv33858]

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

[mayekeul]

Bonjour,

c'est amusant, moi aussi j'ai le problème alors que le résultat xdate est bien le jour suivant.

pour contourner tu peux faire comme ça

Code :

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

1
2
 If Hour(xDate) + Minute(xDate) = 0 Then Cells(xRow, 1) = DateSerial(Year(xDate), Month(xDate), Day(xDate)) 
End Sub

[gv33858]

Merci, Mayekeul, de t'être penché sur mon problème.

J'ai résolu le problème d'une manière simple mais néanmoins surprenante :

Code :

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

Cells(xRow, 1) = CDbl(xDate)

Ceci dit, les problèmes d'arrondi de date sont quasiment insurmontables :

• Je compare un quart d'heure calculé avec un quart d'heure venant de MySQL et j'ai des différences à la 10ème décimale (10 microsecondes !)
• Je compare un quart d'heure calculé avec un quart d'heure "construit" (changement d'heure le dernier dimanche à 2:00) et j'ai des différences à la 8ème décimale (1 milliseconde !)

Super !

Par contre, en me basant sur le contenu de la cellule, tout baigne, tout est correct.

Je vais travailler comme cela, même si c'est contre mes principes .