Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Générateur de calendier

Générateur de calendier

23 réponses
Avatar
SRV
Bonsoir

Je cherche un générateur de calendrier sous Excel pour une année X .
Sous la forme d'un petit tableau avec les mois, jours,dates etc ....

Est-ce que une telle application existe ?

Merci.

P;
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Joël GARBE
Bonsoir P;

tout ce que tu veux ici :
http://www.excelabo.net/xl/calendriers.php#calendrier

Bonne recherche...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"SRV" a écrit dans le message de news:

Bonsoir

Je cherche un générateur de calendrier sous Excel pour une année X .
Sous la forme d'un petit tableau avec les mois, jours,dates etc ....

Est-ce que une telle application existe ?

Merci.

P;




Avatar
LeSteph
Bonsoir srv,

le top est là:

http://frederic.sigonneau.free.fr/Calendriers.htm

lSteph

"SRV" a écrit dans le message de news:

Bonsoir

Je cherche un générateur de calendrier sous Excel pour une année X .
Sous la forme d'un petit tableau avec les mois, jours,dates etc ....

Est-ce que une telle application existe ?

Merci.

P;




Avatar
LeSteph
Bonsoir Joël,
;-) amitiés du soir
lSteph

"Joël GARBE" a écrit dans le message de news:
41a79658$0$783$
Bonsoir P;

tout ce que tu veux ici :
http://www.excelabo.net/xl/calendriers.php#calendrier

Bonne recherche...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"SRV" a écrit dans le message de news:

Bonsoir

Je cherche un générateur de calendrier sous Excel pour une année X .
Sous la forme d'un petit tableau avec les mois, jours,dates etc ....

Est-ce que une telle application existe ?

Merci.

P;








Avatar
Joël GARBE
Idem MonSeigneur !!!

;-)))

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"LeSteph" a écrit dans le message de news:
%23RE3Ho$
Bonsoir Joël,
;-) amitiés du soir
lSteph

"Joël GARBE" a écrit dans le message de news:
41a79658$0$783$
Bonsoir P;

tout ce que tu veux ici :
http://www.excelabo.net/xl/calendriers.php#calendrier

Bonne recherche...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"SRV" a écrit dans le message de news:

Bonsoir

Je cherche un générateur de calendrier sous Excel pour une année X .
Sous la forme d'un petit tableau avec les mois, jours,dates etc ....

Est-ce que une telle application existe ?

Merci.

P;












Avatar
AV
Sub calendrier()
varAn = Val(InputBox("Année ?", "CALENDRIER"))
Application.ScreenUpdating = False
Col = 1
If varAn = 0 Then GoTo fin
X = DateSerial(varAn, 1, 1)
Y = DateValue("31 décembre " & varAn)
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 = 0
End If
Next
[A1].CurrentRegion.NumberFormat = "dddd dd/mm/yyyy"
Cells.EntireColumn.AutoFit
fin:
End Sub

AV
Avatar
SRV
Merci à tous !

Phil.

"AV" a écrit dans le message de news:
%
Avatar
yan
Salut
Tu trouveras sur le site de Frédéric http://frederic.sigonneau.free.fr/ un
fichier "CalFr2.zip" qu'il faut adapter a ton application et qui est
vachement bien fait.
Je l'utilise dans toute les procedures ou je doit renseigner des dates.

A+
yannick

"SRV" a écrit dans le message de news:

Bonsoir

Je cherche un générateur de calendrier sous Excel pour une année X .
Sous la forme d'un petit tableau avec les mois, jours,dates etc ....

Est-ce que une telle application existe ?

Merci.

P;




Avatar
Michel Pierron
Bonjour SRV;
Dans le module ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call MenuDelete
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Call MenuDelete
Dim CmdBar As CommandBar
Dim CmdPopup As CommandBarPopup
Dim CmdButton As CommandBarButton
Dim iMonth As Integer, iDay As Integer
Set CmdBar = Application.CommandBars.Add("Calendar", msoBarTop)
For iMonth = 1 To 12
Set CmdPopup = CmdBar.Controls.Add(msoControlPopup)
CmdPopup.Caption = Format(DateSerial(1, iMonth, 1), "mmmm")
For iDay = 1 To Day(DateSerial(Year(Date), iMonth + 1, 0))
Set CmdButton = CmdPopup.Controls.Add
With CmdButton
.Caption = Format(DateSerial(Year(Date), iMonth, iDay), "dd/mm/yy - dddd")
.OnAction = ThisWorkbook.Name & "!DateSelect"
.Style = msoButtonCaption
End With
Next iDay
Next iMonth
CmdBar.Visible = True
Set CmdButton = Nothing: Set CmdPopup = Nothing: Set CmdBar = Nothing
End Sub

Private Sub MenuDelete()
On Error Resume Next
Application.CommandBars("Calendar").Delete
End Sub

Dans un module standard:
Private Sub DateSelect()
ActiveCell = DateSerial(Year(Date), Application.Caller(2),
Application.Caller(1))
End Sub

MP

"SRV" a écrit dans le message de
news:
Bonsoir

Je cherche un générateur de calendrier sous Excel pour une année X .
Sous la forme d'un petit tableau avec les mois, jours,dates etc ....

Est-ce que une telle application existe ?

Merci.

P;




Avatar
AV
Ave MP,

Bien vu : très original !
AV
Avatar
Pounet95
Bonjour,
Chapeau TRES bas ......!
Celle-là va sûrement enrichir quelques collections.

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Michel Pierron" a écrit dans le message de news:
%
Bonjour SRV;
Dans le module ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call MenuDelete
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Call MenuDelete
Dim CmdBar As CommandBar
Dim CmdPopup As CommandBarPopup
Dim CmdButton As CommandBarButton
Dim iMonth As Integer, iDay As Integer
Set CmdBar = Application.CommandBars.Add("Calendar", msoBarTop)
For iMonth = 1 To 12
Set CmdPopup = CmdBar.Controls.Add(msoControlPopup)
CmdPopup.Caption = Format(DateSerial(1, iMonth, 1), "mmmm")
For iDay = 1 To Day(DateSerial(Year(Date), iMonth + 1, 0))
Set CmdButton = CmdPopup.Controls.Add
With CmdButton
.Caption = Format(DateSerial(Year(Date), iMonth, iDay), "dd/mm/yy - dddd")
.OnAction = ThisWorkbook.Name & "!DateSelect"
.Style = msoButtonCaption
End With
Next iDay
Next iMonth
CmdBar.Visible = True
Set CmdButton = Nothing: Set CmdPopup = Nothing: Set CmdBar = Nothing
End Sub

Private Sub MenuDelete()
On Error Resume Next
Application.CommandBars("Calendar").Delete
End Sub

Dans un module standard:
Private Sub DateSelect()
ActiveCell = DateSerial(Year(Date), Application.Caller(2),
Application.Caller(1))
End Sub

MP

"SRV" a écrit dans le message de
news:
Bonsoir

Je cherche un générateur de calendrier sous Excel pour une année X .
Sous la forme d'un petit tableau avec les mois, jours,dates etc ....

Est-ce que une telle application existe ?

Merci.

P;







1 2 3