Générateur de calendier

Misange

27/11/2004 à 15:24

oh oui ! et vite encore. La prochaine mise à jour sera un festival de MP !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 27/11/2004 15:11:

Bonjour,
Chapeau TRES bas ......!
Celle-là va sûrement enrichir quelques collections.

ROCHE

27/11/2004 à 15:27

Donne-moi ton mail et je t'en envoie un sous 2 formes différentes
A+

"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;

Pounet95

27/11/2004 à 15:28

Bonjour Misange,
Au train ou ça va, il va falloir demander demander quelques Gigas de mémoire
supp à l'hébergeur,
et nous, pauvres visiteurs, mettre encore plus de temps à trouver notre
bonheur sur le site.
Mais c'est tant mieux ;o)

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Misange" a écrit dans le message de news:

oh oui ! et vite encore. La prochaine mise à jour sera un festival de MP !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 27/11/2004 15:11:
Bonjour,
Chapeau TRES bas ......!
Celle-là va sûrement enrichir quelques collections.

GD

27/11/2004 à 18:20

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)))
;o)))
;o)))

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;

Misange

27/11/2004 à 18:25

Il a osé !!!!
;-)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 27/11/2004 18:20:

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)))
;o)))
;o)))

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;

jps

28/11/2004 à 00:28

bonjour michel
je rebondis un peu tardivement sur ton chef d'oeuvre ci-dessous mais les all
blacks y sont pour beaucoup...
je me suis amusé à installer tes procs dans le perso.xls avec deux boutons
(un pour créer, un pour deleter) dans la barre de menu (je dis bien de menu
via Nouveau Menu) eh bien, qu'elle n'est pas ma surprise de constater que je
déclenche l'une ou l'autre des macros en simplement passant le curseur sur
le bouton, sans cliquer donc alors que si j'installe deux boutons rigolo
jaune via Macros, ce phénomène ne se produit pas....
si tu as une explication à cela, je serai bien heureux de l'entendre...
jps

"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;

bonjour michel
je rebondis un peu tardivement sur ton chef d'oeuvre ci-dessous mais les all
blacks y sont pour beaucoup...
je me suis amusé à installer tes procs dans le perso.xls avec deux boutons
(un pour créer, un pour deleter) dans la barre de menu (je dis bien de menu
via Nouveau Menu) eh bien, qu'elle n'est pas ma surprise de constater que je
déclenche l'une ou l'autre des macros en simplement passant le curseur sur
le bouton, sans cliquer donc alors que si j'installe deux boutons rigolo
jaune via Macros, ce phénomène ne se produit pas....
si tu as une explication à cela, je serai bien heureux de l'entendre...
jps

"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de
news:%23c512JH1EHA.3324@tk2msftngp13.phx.gbl...

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" <srv@laposte.net> a écrit dans le message de
news:30pihaF331sh4U1@uni-berlin.de...

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;

Vous avez filtré cet utilisateur ! Consultez son message

bonjour michel
je rebondis un peu tardivement sur ton chef d'oeuvre ci-dessous mais les all
blacks y sont pour beaucoup...
je me suis amusé à installer tes procs dans le perso.xls avec deux boutons
(un pour créer, un pour deleter) dans la barre de menu (je dis bien de menu
via Nouveau Menu) eh bien, qu'elle n'est pas ma surprise de constater que je
déclenche l'une ou l'autre des macros en simplement passant le curseur sur
le bouton, sans cliquer donc alors que si j'installe deux boutons rigolo
jaune via Macros, ce phénomène ne se produit pas....
si tu as une explication à cela, je serai bien heureux de l'entendre...
jps

"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;

Michel Pierron

28/11/2004 à 15:11

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)))

Misange

28/11/2004 à 15:28

:-))
merci Michel !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 28/11/2004 15:11:

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)))

jps

28/11/2004 à 16:56

je trouve cette limitation à 2020 d'une arrogance....
jps

"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)))

jps

28/11/2004 à 16:58

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)))

Générateur de calendier

10 réponses

Veuillez sélectionner un problème