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