"Francky" a écrit dans le message de news:024d01c36f31$168680a0$ Hello,
Comment faire pour créer simplement un calendrier sous excel ? Merci d'avance
AV
Un simple :
Sub calendrier() aN = Val(InputBox("Année ?", "CALENDRIER")) Application.ScreenUpdating = False col = 1: lg = 1 If aN = 0 Or aN > 9998 Or aN < 1901 Then GoTo fin x = DateSerial(aN, 1, 1) y = DateValue("31 décembre " & aN) For i = 0 To y - x lg = lg + 1: Cells(lg, col) = x + i If x + i = DateSerial(Year(x + i), Month(x + i) + 1, 1) - 1 Then col = col + 1: lg = 1 Next [A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1] [A2].CurrentRegion.NumberFormat = "dddd dd/mm/yyyy" Cells.EntireColumn.AutoFit fin: End Sub
AV
"Francky" a écrit dans le message news: 024d01c36f31$168680a0$ Hello,
Comment faire pour créer simplement un calendrier sous excel ? Merci d'avance
Un simple :
Sub calendrier()
aN = Val(InputBox("Année ?", "CALENDRIER"))
Application.ScreenUpdating = False
col = 1: lg = 1
If aN = 0 Or aN > 9998 Or aN < 1901 Then GoTo fin
x = DateSerial(aN, 1, 1)
y = DateValue("31 décembre " & aN)
For i = 0 To y - x
lg = lg + 1: Cells(lg, col) = x + i
If x + i = DateSerial(Year(x + i), Month(x + i) + 1, 1) - 1 Then col = col
+ 1: lg = 1
Next
[A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1]
[A2].CurrentRegion.NumberFormat = "dddd dd/mm/yyyy"
Cells.EntireColumn.AutoFit
fin:
End Sub
AV
"Francky" <to@to.to> a écrit dans le message news:
024d01c36f31$168680a0$a101280a@phx.gbl...
Hello,
Comment faire pour créer simplement un calendrier sous
excel ?
Merci d'avance
Sub calendrier() aN = Val(InputBox("Année ?", "CALENDRIER")) Application.ScreenUpdating = False col = 1: lg = 1 If aN = 0 Or aN > 9998 Or aN < 1901 Then GoTo fin x = DateSerial(aN, 1, 1) y = DateValue("31 décembre " & aN) For i = 0 To y - x lg = lg + 1: Cells(lg, col) = x + i If x + i = DateSerial(Year(x + i), Month(x + i) + 1, 1) - 1 Then col = col + 1: lg = 1 Next [A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1] [A2].CurrentRegion.NumberFormat = "dddd dd/mm/yyyy" Cells.EntireColumn.AutoFit fin: End Sub
AV
"Francky" a écrit dans le message news: 024d01c36f31$168680a0$ Hello,
Comment faire pour créer simplement un calendrier sous excel ? Merci d'avance
sabatier
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le 17/02/59, jour de ma naissance, était un vendredi (cherchez l'erreur) chapeau AV jps
AV wrote:
Un simple :
Sub calendrier() aN = Val(InputBox("Année ?", "CALENDRIER")) Application.ScreenUpdating = False col = 1: lg = 1 If aN = 0 Or aN > 9998 Or aN < 1901 Then GoTo fin x = DateSerial(aN, 1, 1) y = DateValue("31 décembre " & aN) For i = 0 To y - x lg = lg + 1: Cells(lg, col) = x + i If x + i = DateSerial(Year(x + i), Month(x + i) + 1, 1) - 1 Then col = col + 1: lg = 1 Next [A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1] [A2].CurrentRegion.NumberFormat = "dddd dd/mm/yyyy" Cells.EntireColumn.AutoFit fin: End Sub
AV
"Francky" a écrit dans le message news: 024d01c36f31$168680a0$ Hello,
Comment faire pour créer simplement un calendrier sous excel ? Merci d'avance
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le
17/02/59,
jour de ma naissance, était un vendredi (cherchez l'erreur)
chapeau AV
jps
AV wrote:
Un simple :
Sub calendrier()
aN = Val(InputBox("Année ?", "CALENDRIER"))
Application.ScreenUpdating = False
col = 1: lg = 1
If aN = 0 Or aN > 9998 Or aN < 1901 Then GoTo fin
x = DateSerial(aN, 1, 1)
y = DateValue("31 décembre " & aN)
For i = 0 To y - x
lg = lg + 1: Cells(lg, col) = x + i
If x + i = DateSerial(Year(x + i), Month(x + i) + 1, 1) - 1 Then col = col
+ 1: lg = 1
Next
[A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1]
[A2].CurrentRegion.NumberFormat = "dddd dd/mm/yyyy"
Cells.EntireColumn.AutoFit
fin:
End Sub
AV
"Francky" <to@to.to> a écrit dans le message news:
024d01c36f31$168680a0$a101280a@phx.gbl...
Hello,
Comment faire pour créer simplement un calendrier sous
excel ?
Merci d'avance
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le 17/02/59, jour de ma naissance, était un vendredi (cherchez l'erreur) chapeau AV jps
AV wrote:
Un simple :
Sub calendrier() aN = Val(InputBox("Année ?", "CALENDRIER")) Application.ScreenUpdating = False col = 1: lg = 1 If aN = 0 Or aN > 9998 Or aN < 1901 Then GoTo fin x = DateSerial(aN, 1, 1) y = DateValue("31 décembre " & aN) For i = 0 To y - x lg = lg + 1: Cells(lg, col) = x + i If x + i = DateSerial(Year(x + i), Month(x + i) + 1, 1) - 1 Then col = col + 1: lg = 1 Next [A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1] [A2].CurrentRegion.NumberFormat = "dddd dd/mm/yyyy" Cells.EntireColumn.AutoFit fin: End Sub
AV
"Francky" a écrit dans le message news: 024d01c36f31$168680a0$ Hello,
Comment faire pour créer simplement un calendrier sous excel ? Merci d'avance
AV
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le 17/02/59, jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi ! C'est pas ça ? Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve qu'elle figure dans Outils>Options>Liste pers. AV
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le
17/02/59,
jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi !
C'est pas ça ?
Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve qu'elle
figure dans Outils>Options>Liste pers.
AV
meuh non, alain...c'est parce que j'ai bluffé pour mon année de naissance... jps
AV wrote:
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le 17/02/59, jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi ! C'est pas ça ? Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve qu'elle figure dans Outils>Options>Liste pers. AV
sabatier
qué salopard, ce mec...anjou? que nenni...en joue, oui.. jps
Pierre CFI wrote:
l'erreur est sur l'année de naissance, pas 59 mais 29 çà se voit pourtant
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "AV" a écrit dans le message de news:
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le 17/02/59, jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi ! C'est pas ça ? Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve qu'elle figure dans Outils>Options>Liste pers. AV
qué salopard, ce mec...anjou? que nenni...en joue, oui..
jps
Pierre CFI wrote:
l'erreur est sur l'année de naissance, pas 59 mais 29 çà se voit pourtant
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news: uojmGW6bDHA.3044@TK2MSFTNGP11.phx.gbl...
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le
17/02/59,
jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi !
C'est pas ça ?
Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve qu'elle
figure dans Outils>Options>Liste pers.
AV
qué salopard, ce mec...anjou? que nenni...en joue, oui.. jps
Pierre CFI wrote:
l'erreur est sur l'année de naissance, pas 59 mais 29 çà se voit pourtant
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "AV" a écrit dans le message de news:
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le 17/02/59, jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi ! C'est pas ça ? Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve qu'elle figure dans Outils>Options>Liste pers. AV
Robert Dezan
Salut Alain, Il faudrait préciser que la Liste "JANVIER, FEVRIER, MARS, etc".... doit avoir été créée dans "Outils >> Options >> Liste pers." sinon [A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1]...affichera des JANVIER en entête des 12 colonnes. Cordialement Robert
"AV" a écrit dans le message de news:%
Un simple :
Sub calendrier() aN = Val(InputBox("Année ?", "CALENDRIER")) Application.ScreenUpdating = False col = 1: lg = 1 If aN = 0 Or aN > 9998 Or aN < 1901 Then GoTo fin x = DateSerial(aN, 1, 1) y = DateValue("31 décembre " & aN) For i = 0 To y - x lg = lg + 1: Cells(lg, col) = x + i If x + i = DateSerial(Year(x + i), Month(x + i) + 1, 1) - 1 Then col col + 1: lg = 1 Next [A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1] [A2].CurrentRegion.NumberFormat = "dddd dd/mm/yyyy" Cells.EntireColumn.AutoFit fin: End Sub
AV
"Francky" a écrit dans le message news: 024d01c36f31$168680a0$ Hello,
Comment faire pour créer simplement un calendrier sous excel ? Merci d'avance
Salut Alain,
Il faudrait préciser que la Liste "JANVIER, FEVRIER, MARS, etc".... doit avoir
été créée dans "Outils >> Options >> Liste pers."
sinon [A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1]...affichera des
JANVIER en entête des 12 colonnes.
Cordialement
Robert
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%232qbhH4bDHA.736@TK2MSFTNGP09.phx.gbl...
Un simple :
Sub calendrier()
aN = Val(InputBox("Année ?", "CALENDRIER"))
Application.ScreenUpdating = False
col = 1: lg = 1
If aN = 0 Or aN > 9998 Or aN < 1901 Then GoTo fin
x = DateSerial(aN, 1, 1)
y = DateValue("31 décembre " & aN)
For i = 0 To y - x
lg = lg + 1: Cells(lg, col) = x + i
If x + i = DateSerial(Year(x + i), Month(x + i) + 1, 1) - 1 Then col col
+ 1: lg = 1
Next
[A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1]
[A2].CurrentRegion.NumberFormat = "dddd dd/mm/yyyy"
Cells.EntireColumn.AutoFit
fin:
End Sub
AV
"Francky" <to@to.to> a écrit dans le message news:
024d01c36f31$168680a0$a101280a@phx.gbl...
Hello,
Comment faire pour créer simplement un calendrier sous
excel ?
Merci d'avance
Salut Alain, Il faudrait préciser que la Liste "JANVIER, FEVRIER, MARS, etc".... doit avoir été créée dans "Outils >> Options >> Liste pers." sinon [A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1]...affichera des JANVIER en entête des 12 colonnes. Cordialement Robert
"AV" a écrit dans le message de news:%
Un simple :
Sub calendrier() aN = Val(InputBox("Année ?", "CALENDRIER")) Application.ScreenUpdating = False col = 1: lg = 1 If aN = 0 Or aN > 9998 Or aN < 1901 Then GoTo fin x = DateSerial(aN, 1, 1) y = DateValue("31 décembre " & aN) For i = 0 To y - x lg = lg + 1: Cells(lg, col) = x + i If x + i = DateSerial(Year(x + i), Month(x + i) + 1, 1) - 1 Then col col + 1: lg = 1 Next [A1] = "JANVIER": [A1].AutoFill Destination:=[A1:L1] [A2].CurrentRegion.NumberFormat = "dddd dd/mm/yyyy" Cells.EntireColumn.AutoFit fin: End Sub
AV
"Francky" a écrit dans le message news: 024d01c36f31$168680a0$ Hello,
Comment faire pour créer simplement un calendrier sous excel ? Merci d'avance
AV
Salut Robert,
Il faudrait préciser que la Liste "JANVIER, FEVRIER, MARS, etc".... doit avoir été créée dans "Outils >> Options >> Liste pers."
C'est bien ce que j'ai précisé dans le NB à 11:52 (réponse à JPS)... :-) AV
Salut Robert,
Il faudrait préciser que la Liste "JANVIER, FEVRIER, MARS, etc".... doit avoir
été créée dans "Outils >> Options >> Liste pers."
C'est bien ce que j'ai précisé dans le NB à 11:52 (réponse à JPS)...
:-)
AV
Il faudrait préciser que la Liste "JANVIER, FEVRIER, MARS, etc".... doit avoir été créée dans "Outils >> Options >> Liste pers."
C'est bien ce que j'ai précisé dans le NB à 11:52 (réponse à JPS)... :-) AV
gee-dee-
;-))) question subsidiaire: sachant que Pierre se serait parait-il également trompé ???? et partant des indices : vendredi 17 février trouver l'ANNO HORRIBILIS correspondante.... ;-))) toute solution modulo 28 sera bien entendu acceptée .... ;-))) bon scud au répondeur.... moi je suis sûr de recevoir le mien incessament ;-))) "AV" a écrit dans le message de news:
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le 17/02/59, jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi ! C'est pas ça ? Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve qu'elle
figure dans Outils>Options>Liste pers. AV
;-)))
question subsidiaire:
sachant que Pierre se serait parait-il également trompé ????
et partant des indices : vendredi 17 février
trouver l'ANNO HORRIBILIS correspondante....
;-)))
toute solution modulo 28 sera bien entendu acceptée ....
;-)))
bon scud au répondeur....
moi je suis sûr de recevoir le mien incessament
;-)))
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:uojmGW6bDHA.3044@TK2MSFTNGP11.phx.gbl...
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le
17/02/59,
jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi !
C'est pas ça ?
Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve
qu'elle
;-))) question subsidiaire: sachant que Pierre se serait parait-il également trompé ???? et partant des indices : vendredi 17 février trouver l'ANNO HORRIBILIS correspondante.... ;-))) toute solution modulo 28 sera bien entendu acceptée .... ;-))) bon scud au répondeur.... moi je suis sûr de recevoir le mien incessament ;-))) "AV" a écrit dans le message de news:
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le 17/02/59, jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi ! C'est pas ça ? Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve qu'elle
figure dans Outils>Options>Liste pers. AV
sabatier
tu as de la chance, geedee, j'ai décidé de ne plus scuder au-delà du 31 août...tu le savais ou bien? jps PS ça veut dire quoi modulo 28?
gee-dee- a écrit:
;-))) question subsidiaire: sachant que Pierre se serait parait-il également trompé ???? et partant des indices : vendredi 17 février trouver l'ANNO HORRIBILIS correspondante.... ;-))) toute solution modulo 28 sera bien entendu acceptée .... ;-))) bon scud au répondeur.... moi je suis sûr de recevoir le mien incessament ;-))) "AV" a écrit dans le message de news:
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le 17/02/59, jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi ! C'est pas ça ? Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve
qu'elle
figure dans Outils>Options>Liste pers. AV
tu as de la chance, geedee, j'ai décidé de ne plus scuder au-delà du 31
août...tu le savais ou bien?
jps
PS ça veut dire quoi modulo 28?
gee-dee- a écrit:
;-)))
question subsidiaire:
sachant que Pierre se serait parait-il également trompé ????
et partant des indices : vendredi 17 février
trouver l'ANNO HORRIBILIS correspondante....
;-)))
toute solution modulo 28 sera bien entendu acceptée ....
;-)))
bon scud au répondeur....
moi je suis sûr de recevoir le mien incessament
;-)))
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:uojmGW6bDHA.3044@TK2MSFTNGP11.phx.gbl...
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le
17/02/59,
jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi !
C'est pas ça ?
Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve
tu as de la chance, geedee, j'ai décidé de ne plus scuder au-delà du 31 août...tu le savais ou bien? jps PS ça veut dire quoi modulo 28?
gee-dee- a écrit:
;-))) question subsidiaire: sachant que Pierre se serait parait-il également trompé ???? et partant des indices : vendredi 17 février trouver l'ANNO HORRIBILIS correspondante.... ;-))) toute solution modulo 28 sera bien entendu acceptée .... ;-))) bon scud au répondeur.... moi je suis sûr de recevoir le mien incessament ;-))) "AV" a écrit dans le message de news:
ouhhhhhhhhhh impressionnante cette macro qui m'a permis de voir que le 17/02/59, jour de ma naissance, était un vendredi (cherchez l'erreur)
Heu... moi j'obtiens 17/02/1959 = Mardi et non vendredi ! C'est pas ça ? Y a du subliminal à saisir ?
NB: tant que j'y pense : la liste des mois s'inscrira sous réserve
