Discussion :

[sebfch]

Bonjour,

j'aimerais un code qui me génère une liste de date d'intervalle 10 min entre 2 dates.
Je m'explique :
j'ai 10/01/2017 10:00 et 11/01/2017 10:00
il me faut :
10/01/2017 10:00
10/01/2017 10:10
10/01/2017 10:20
...
11/01/2017 10:00

si vous avez une idée de comment faire

[Jean-Philippe André]

SAlut,

tu peux deja regarder avec

Code :

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

1
2
3
4
5
6
7
8
Sub piou()
Dim dt1 As Date, dt2 As Date, dt As Date
dt1 = #1/10/2017 10:00:00 AM#
dt2 = #1/11/2017 10:00:00 AM#
For dt = dt1 To dt2 Step (1 / 24) * 10 / 60
Debug.Print dt
Next dt
End Sub

[sebfch]

Parfait merci !