bonjour,
J'essaie de mettre en place une liste de date mais j'ai un problème de format.
Je donne la date du début du mois par exemple : 01/12/2008
et je veux que ma macro me crée une liste de date avec des horaires comme ceci :
01/12/08 0:30
01/12/08 1:30
...
31/12/08
et ca ne marche pas, de plus je suis un peu pommé dans les formats de date sur excel.
Avec le code ci-dessous, j'obtiens ca :
12/01/08 0:30
12/01/08 1:30
Je voudrais inverser les mois et les jours
est-ce que quelqu'un aurais une idée ?
évidemment pour faire ça je bidouille avec la manip suivante :
date1 = Sheets("Données").Range("A1").Value
DateC1 = date1 & " 0:30"
DateC2 = date1 & " 1:30"
Il y a peut-être une manières plus simple de faire que ca ?
Je suis preneur de tutoriel sur les dates si certains d'entre vous en possède.
Merci d'avance
J'ai aussi joint le fichier.
J'essaie de mettre en place une liste de date mais j'ai un problème de format.
Je donne la date du début du mois par exemple : 01/12/2008
et je veux que ma macro me crée une liste de date avec des horaires comme ceci :
01/12/08 0:30
01/12/08 1:30
...
31/12/08
et ca ne marche pas, de plus je suis un peu pommé dans les formats de date sur excel.
Avec le code ci-dessous, j'obtiens ca :
12/01/08 0:30
12/01/08 1:30
Je voudrais inverser les mois et les jours
est-ce que quelqu'un aurais une idée ?
évidemment pour faire ça je bidouille avec la manip suivante :
date1 = Sheets("Données").Range("A1").Value
DateC1 = date1 & " 0:30"
DateC2 = date1 & " 1:30"
Il y a peut-être une manières plus simple de faire que ca ?
Je suis preneur de tutoriel sur les dates si certains d'entre vous en possède.
Merci d'avance
J'ai aussi joint le fichier.
Code:
'Mise en place de la date
Range("A8:A9").Select
Selection.NumberFormat = "dd/mm/yy h:mm"
date1 = Sheets("Données").Range("A1").Value
DateC1 = date1 & " 0:30"
DateC2 = date1 & " 1:30"
Sheets(Nom_Données).Range("A8").Value = DateC1
Sheets(Nom_Données).Range("A9").Value = DateC2
'Selection du nombre de jour du mois
Select Case nb_jour
Case 28: J = 415
Case 30: J = 463
Case 31: J = 487
End Select
Range("A8:A9").Select
INT10 = "A8:A" & J
Selection.AutoFill Destination:=Range(INT10), Type:=xlFillDefault