Une barre d'outils pour entrer des dates

Bonjour, *Greffier*

recherche BOCalendrierSaisieDate.XLA de Frédéric SIGONNEAU
ici :
http://frederic.sigonneau.free.fr/Calendriers.htm
Clic droit, et Hop... Le tour est dans le sac (et l'affaire est jouée)
Merci, Frédéric.
;-)

--
Bien amicordialement,
P. Bastard

Bonjour,

Michel Pierron a écrit une petite barre d'outils qui permet
d'accéder à l'ouverture d'une application une barre d'outil qui se
compose de 12 menus déroulants correspondants aux jours des mois de
l'année en cours. (mp-generateurcalendrier bans Excel-labo)

Michel Pierron ou quelqu'un parmi vous aurait-il complété cette barre
avec un menu déroulant comprenant l'année.

Merci.

Greffier

Bonjour,

Je connais cette fonction que j'ai d'ailleurs en cours, mais j'aimerais
savoir si la fonction écrite par Pierron a été améliorée ou une autre se
présentant s'une façon semblable, sous la forme d'une barre d'outil.
D'ailleurs chez Fred j'ai pris énormément d'exemples..... c'est une mine.

Merci quand même.

Greffier.



"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news:O52cP4r7FHA.740@TK2MSFTNGP11.phx.gbl...

Bonjour, *Greffier*

recherche BOCalendrierSaisieDate.XLA de Frédéric SIGONNEAU
ici :
http://frederic.sigonneau.free.fr/Calendriers.htm
Clic droit, et Hop... Le tour est dans le sac (et l'affaire est jouée)
Merci, Frédéric.
;-)

--
Bien amicordialement,
P. Bastard

Bonjour,

Michel Pierron a écrit une petite barre d'outils qui permet
d'accéder à l'ouverture d'une application une barre d'outil qui se
compose de 12 menus déroulants correspondants aux jours des mois de
l'année en cours. (mp-generateurcalendrier bans Excel-labo)

Michel Pierron ou quelqu'un parmi vous aurait-il complété cette barre
avec un menu déroulant comprenant l'année.

Merci.

Greffier

Bonjour

Michel avait rajouté ceci qui est toujours en attente de mon côté !

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


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

Le 21/11/2005 17:54, :

Bonjour,

Michel Pierron a écrit une petite barre d'outils qui permet d'accéder à
l'ouverture d'une application une barre d'outil qui se compose de 12 menus
déroulants correspondants aux jours des mois de l'année en cours.
(mp-generateurcalendrier bans Excel-labo)

Michel Pierron ou quelqu'un parmi vous aurait-il complété cette barre avec
un menu déroulant comprenant l'année.

Merci.

Greffier

Bonsoir et misange,

J'ai bien la barre que je voulais, j'ai juste modifier le workbook_ouvrir en
ajoutant call addcalendar.
Est-ce ce qu'il fallait faire ou bien y a-t-il encore une mise à jour, sinon
la barre d'outils s'ouvre comme l'ancienne sans la date.
Je commence avec cette mise à jour, et j'attends la mise à jour sur
Excel-labo.

Merci.

Greffier.




"Misange" <misange@devinez-ou.net> a écrit dans le message de
news:uA%23YjYt7FHA.3276@TK2MSFTNGP15.phx.gbl...

Bonjour

Michel avait rajouté ceci qui est toujours en attente de mon côté !

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


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

Le 21/11/2005 17:54, :

Bonjour,

Michel Pierron a écrit une petite barre d'outils qui permet d'accéder à
l'ouverture d'une application une barre d'outil qui se compose de 12
menus

déroulants correspondants aux jours des mois de l'année en cours.
(mp-generateurcalendrier bans Excel-labo)

Michel Pierron ou quelqu'un parmi vous aurait-il complété cette barre
avec

un menu déroulant comprenant l'année.

Merci.

Greffier