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

3 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
twinley
Slt jps,

c'est le petit vieux qui vend de la serge

à+twinley

jps wrote:
je me suis permis de modifier cette proc en forme de ö rage, ö
désespoir...etc...etc... et de remplacer 2020 par 2060
jps (et hop! la mère calmant; out du guinness)

"Michel Pierron" a écrit dans le message de
news:%

Special ®GD parce que c'est dimanche;

Sub AddCalendar()
Application.ScreenUpdating = False
Call MenuDelete
Dim CmdBar As CommandBar, i As Integer
Set CmdBar = Application.CommandBars.Add("Calendar", msoBarTop)
With CmdBar.Controls.Add(Type:=msoControlComboBox)
.Style = msoComboNormal: .Width = 50
For i = 1980 To 2020: .AddItem i: Next i
.Text = Year(Date)
.OnAction = ThisWorkbook.Name & "!UpDateDays"
End With
UpDateDays
CmdBar.Visible = True
Set CmdBar = Nothing
End Sub

Private Sub UpDateDays()
Application.ScreenUpdating = False
Dim m%, a%, j%
With Application.CommandBars("Calendar")
a = CInt(.Controls(1).Text)
Do While .Controls.Count > 1
.Controls(.Controls.Count).Delete
Loop
For m = 1 To 12
With .Controls.Add(msoControlPopup)
.Caption = Format(DateSerial(1, m, 1), "mmmm")
For j = 1 To Day(DateSerial(a, m + 1, 0))
With .Controls.Add
.Caption = Format(DateSerial(a, m, j), "dd/mm/yy - dddd")
.OnAction = ThisWorkbook.Name & "!DateSelect"
.Style = msoButtonCaption
End With
Next j
End With
Next m
End With
End Sub

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

Private Sub DateSelect()
Dim a%
With Application
a = CInt(.CommandBars("Calendar").Controls(1).Text)
ActiveCell = DateSerial(a, .Caller(2) - 1, .Caller(1))
End With
End Sub

MP

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

Whaoooo!!!
Hop ! archivé !!!!
Super astucieux ....
Bonsour ® Michel Pierron,
si j'osais ...


ça va pas pour mon projet.!!!..
(certain vont dire : y nous fait le testou ;o)))
tu n'aurai pas la meme chose en choisissant l'année ... ;o)))
;o)))








Avatar
jps
:-))))))))))
jps

"twinley" a écrit dans le message de
news:
Slt jps,

c'est le petit vieux qui vend de la serge

à+twinley

jps wrote:
je me suis permis de modifier cette proc en forme de ö rage, ö
désespoir...etc...etc... et de remplacer 2020 par 2060
jps (et hop! la mère calmant; out du guinness)

"Michel Pierron" a écrit dans le message de
news:%

Special ®GD parce que c'est dimanche;

Sub AddCalendar()
Application.ScreenUpdating = False
Call MenuDelete
Dim CmdBar As CommandBar, i As Integer
Set CmdBar = Application.CommandBars.Add("Calendar", msoBarTop)
With CmdBar.Controls.Add(Type:=msoControlComboBox)
.Style = msoComboNormal: .Width = 50
For i = 1980 To 2020: .AddItem i: Next i
.Text = Year(Date)
.OnAction = ThisWorkbook.Name & "!UpDateDays"
End With
UpDateDays
CmdBar.Visible = True
Set CmdBar = Nothing
End Sub

Private Sub UpDateDays()
Application.ScreenUpdating = False
Dim m%, a%, j%
With Application.CommandBars("Calendar")
a = CInt(.Controls(1).Text)
Do While .Controls.Count > 1
.Controls(.Controls.Count).Delete
Loop
For m = 1 To 12
With .Controls.Add(msoControlPopup)
.Caption = Format(DateSerial(1, m, 1), "mmmm")
For j = 1 To Day(DateSerial(a, m + 1, 0))
With .Controls.Add
.Caption = Format(DateSerial(a, m, j), "dd/mm/yy - dddd")
.OnAction = ThisWorkbook.Name & "!DateSelect"
.Style = msoButtonCaption
End With
Next j
End With
Next m
End With
End Sub

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

Private Sub DateSelect()
Dim a%
With Application
a = CInt(.CommandBars("Calendar").Controls(1).Text)
ActiveCell = DateSerial(a, .Caller(2) - 1, .Caller(1))
End With
End Sub

MP

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

Whaoooo!!!
Hop ! archivé !!!!
Super astucieux ....
Bonsour ® Michel Pierron,
si j'osais ...


ça va pas pour mon projet.!!!..
(certain vont dire : y nous fait le testou ;o)))
tu n'aurai pas la meme chose en choisissant l'année ... ;o)))
;o)))










Avatar
GD
Michel Pierron wrote:
Special ®GD parce que c'est dimanche;
pffff....bof... c'était pas beaucoup compliqué en fait...


MAIS CA VA TOUJOURS PAS POUR MON PROJET !!!..
tu va pouvoir dire : y nous fait vraiment le pestou ;o)))
tu n'aurai pas la même chose en précisant les jours fériés ... ;o)))
;o)))
et presses toi de répondre !!!!
Spécial ®MP parceque en effet demain c'est Lundi ????
;o)))
je demande les fétes a souhaiter

mardi : les anniversaires MPFE
mercredi : les phases de la lune
jeudi : heures coucher et lever de soleil
vendredi : rien !!!
v
v
v
v
v
ce sera alors trop compliqué a intégrer a tout les morceaux que j'ai déja
récupéré sur excelabo
je passerai à un autre projet ...
;o)))
;o)))

chut.!!!.. tais -toi..., dis rien Flo !!!,
laisse faire Michel , il va nous pondre un joli truc en cadeau de Noël !!!
;o)))
@+


ça va pas pour mon projet.!!!..
(certain vont dire : y nous fait le testou ;o)))
tu n'aurai pas la meme chose en choisissant l'année ... ;o)))
;o)))




1 2 3