Faire afficher toutes les dates de l'année

[maxmeu]

Bonjour à tous!
Je suis nouveau sur le forum, mais je vous lit depuis quelques temps! Très éducatifs!

Je suis présentement en train de me créer un fichier excel (Mac) pour calculer mes heures travaillées à mon emploi.

J'aimerais donc savoir s'il y a un moyen de faire afficher toutes les dates de l'année, une en dessous de l'autre, sur un ligne différente, exemple:

lundi 11 juillet 2011
mardi 12 juillet 2011
mercredi 13 juillet 2011
jeudi 14 juillet 2011
vendredi 15 juillet 2011
samedi 16 juillet 2011
dimanche 17 juillet 2011

Ou bien, je dois le faire manuellement ?

Merci beaucoup!

Max

 

[Staple1600]

Re : Faire afficher toutes les dates de l'année

Bonjour


Ce peut se faire par macro ou manuellement (mais rapidement)

 

[JCGL]

Re : Faire afficher toutes les dates de l'année

Bonjour à tous,
Bienvenue sur XLD,

Il est aussi rapide de le faire manuellement....
Tu entres une date de départ, tu double-cliques sur le bord inférieur droit de la cellule ou tu étires cette cellule et il est proposé une incrémentation par jour , mois ou année.

A + à tous

Édition : Oups... Salut l'Agrafe...

 

[Staple1600]

Re : Faire afficher toutes les dates de l'année

Re, JCGL 😉

Une façon de la faire manuellement (sans se fatiguer)
1) Sélectionner A1 puis faire CTRL+T
2) saisir dans Référence : A1:A365
3) dans la barre de formule, saisir =DATE(2010;12;31)+LIGNE()
et valider par CTRL+MAJ+ENTREE

Et tu auras la calendrier en colonne pour 2011

PS1: ca fatigue moins le poignée que de de recopier avec la souris de A1 à A365 😉
PS2 par contre je ne sais pas ce que cela donnera sur un Mac, mais sur mon PC, cela fonctionne

EDITION: une petite macro pour le fun

Sub CalendInachevé()
Dim NJours&
[A2:A366].Clear
[A1] = DateValue("1/1/" & Year(Date))
NJours = InputBox("Combien de jours?", "T'it calendrier", 366)
Range("A1").AutoFill Destination:=Range("A1").Resize(NJours), Type:=xlFillDays
End Sub

 

[JCGL]

Re : Faire afficher toutes les dates de l'année

Bonjour à tous,

Avec un bout de code:

Option Explicit

Sub Calendrier()
Dim X As Integer

Columns(1).ClearContents
Range("A1") = "Jours"
Range("A2") = InputBox("Par défaut le premier jour de l'année en cours", "Poser le premier jour du Calendrier", DateSerial(Year(Now), 1, 1))
For X = 3 To InputBox("Par défaut 366 jours", "Combien de jours pour le calendrier", 366)
Cells(X, 1) = Cells(X - 1, 1) + 1
Next X
End Sub

A + à tous

Édition : Comme il est dit, on ne peut pas être à l'apéro et à l'Opéra....

 

[Staple1600]

Re : Faire afficher toutes les dates de l'année

BonsoirRE

JCGL: Pourquoi tu boucles ?
C'est pas plus simple e utilisant la recopie incrémentée d'Excel (mais en VBA) ?
(voir mon précédent message)

 

[JCGL]

Re : Faire afficher toutes les dates de l'année

Bonjour à tous,

L'Agrafe : Il est toujours intéressant de proposer une autre approche...Je pense.

A++
A + à tous

 

[C@thy]

Re : Faire afficher toutes les dates de l'année

Bonjour les amis,

JCGL, on ne doit pas avoir la même version d'Excel, chez moi le double-clic sur la poignée de recopie ne marche pas
car les colonnes adjacentes sont vides, par contre j'obtiens le même résultat avec un clic droit sur la poignée de recopie et en la glissant (suffisamment) vers le bas.

Staple, je me suis permise d'adapter ton code :

Sub Calendrier()
Dim NJours&
[A1:A366].Clear
[A1] = DateValue("1/1/" & Year(Date))
If IsDate("29/02/" & Year(Date)) Then 'année bissextile
NJours = 366
Else
NJours = 365
End If
Range("A1").AutoFill Destination:=Range("A1").Resize(NJours), Type:=xlFillDays
End Sub

Bises et bonne journée

Edit :

3) dans la barre de formule, saisir =DATE(2010;12;31)+LIGNE()
et valider par CTRL+MAJ+ENTREE

Et tu auras la calendrier en colonne pour 2011

en fait, il s'agit de DATE(2011;12;31)+LIGNE() pour avoir le calendrier de 2011

Bises et bonne journée

C@thy

 

[hoerwind]

Re : Faire afficher toutes les dates de l'année

Bonjour, salut les autres,

Une autre façon de faire.

A1 : saisir 01/01/2011
Menu Édition - Remplissage - Série - cocher "Colonne" - Dernière valeur : 31/12/2011 - Valider (ou OK)

Raccourci clavier après avoir saisi la date en A : Alt+e+a+s+c+d et saisir la dernière valeur

 

[pierrejean]

Re : Faire afficher toutes les dates de l'année

Bonjour à tous et bises à C@thy

Une enième version

Sub test()
ligne = 2
For n = CDate("01/01/" & Year(Now)) To CDate("31/12/" & Year(Now))
  Range("A" & ligne) = n
  ligne = ligne + 1
Next n
End Sub

 

[C@thy]

Re : Faire afficher toutes les dates de l'année

PJ, merci pour les bises 🙂, je rajouterais la définition des variables
(c'est Ti qui m'a appris à toujours mettre Option explicit)

Dim ligne As Integer, m As Integer, n As Date

et bravo à vous deux pour ces deux versions,
j'aime bien le remplissage, ça évite la matricielle et surtout la sélection de 365 ou bien 366 cellules selon le cas.

Bises à tutti

C@thy

 

[DoubleZero]

Re : Faire afficher toutes les dates de l'année

Bonjour et bienvenue, maxmeu, bonjour, le Fil 🙂, le Forum,

Si JCGL le permet 😱, un petit ajout à son code afin d'obtenir des dates présentées sous cette forme :

lundi 11 juillet 2011
mardi 12 juillet 2011
mercredi 13 juillet 2011
jeudi 14 juillet 2011

A bientôt.

 

[JCGL]

Re : Faire afficher toutes les dates de l'année

Bonjour à tous,

Je te permet bien volontiers : tout fichier déposé ou solution proposée est succeptible d'être amélioré... Soit en format ou en réduction de code ou de formule...

Bises à 00
Bises à @Cathy avec qui je ne suis pas d'accord sur la rectification de la formule de l'Agrafe... au #8
A++ à PJ
A++ à Hoerwind

A + à tous

 

[DoubleZero]

Re : Faire afficher toutes les dates de l'année

Re-bonjour,

... Je te permet bien volontiers...

Merci, JCGL, et... bises itou 🙂.

 

[Staple1600]

Re : Faire afficher toutes les dates de l'année

Bonjour le fil

A la mode "hoerwindienne" mais en VBA

Sub test() 'merci hoerwind ;)
Dim ChxAn$, Fin&, Debut
ChxAn = InputBox("Saisir l'année de votre calendrier", "Calendrier", Year(Date))
[A1] = DateValue("1/1/" & ChxAn)
Fin = CLng(DateValue("31/12/" & ChxAn))
[A1].DataSeries 2, 3, 1, 1, Fin, False
End Sub

Cathy: Je suis d'accord avec JCGL 😉