Discussion :

[skaraa]

Bonjour à tous,

Je souhaite, dans excel, créer un tableau de données avec, en cellule A1 la date du jour (m/d/yyyy h:mm)
Puis boucler ensuite toutes les demi-heure par rapport à cette date.


Avant je faisait comme ça (pour une heure) (exemple : DateDuJour = 9/1/2015 00:00)

For j = 1 To 24 (je boucle sur 24 lignes)
Range("A" & j).Value = DateAdd("h", j, DateDuJour) 'La cellule ajoute x heures à l'heure de depart
Range("A" & j).NumberFormat = "m/d/yyyy h:mm"
Next

Comment faire pour une demie-heure ?

Merci

[beta007]

tu peux modifier la macro de la sorte

Code :

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

1
2
3
4
5
6
DateDuJour = Now
For J = 1 To 48 '(je boucle sur 48 lignes)
    Range("A" & J).Value = DateDuJour
    Range("A" & J).NumberFormat = "d/m/yyyy h:mm"
    DateDuJour = DateDuJour + 0.0208
Next

0.0208 correspond à 1/2 heure se qui te permet de modifier à souhait l'espacement que tu veux (si tu veux deux heures tu mettras 0.0832)

[skaraa]

tu peux modifier la macro de la sorte

Code :

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

1
2
3
4
5
6
DateDuJour = Now
For J = 1 To 48 '(je boucle sur 48 lignes)
    Range("A" & J).Value = DateDuJour
    Range("A" & J).NumberFormat = "d/m/yyyy h:mm"
    DateDuJour = DateDuJour + 0.0208
Next

0.0208 correspond à 1/2 heure se qui te permet de modifier à souhait l'espacement que tu veux (si tu veux deux heures tu mettras 0.0832)

Super, ! merci.