USF calendar

[francois]

bonsoir
j'aurais besoin d'un conseil.

Quand on fait appel à un USF calendar est-il possible qu'il soit automatiquement à la date en cour(Now) ou apparait-il toujours avec la date enregistrée au niveau du module de création USF?
je cherche dans les propriétés calendar mais ...........;
merci de votre aide
bonne soirée
francois

 

[Mytå]

Salut francois et le forum

Pour un control calendar dans un userform

essaye ceci UserForm1.Calendar1.Today

ou a l'ouverture du fichier

Private Sub Workbook_Open()
Sheets("Feuil1").Select
UserForm1.Calendar1.Today
UserForm1.Show
End Sub


Mytå

 

[zon]

Bonsoir à tous,

Tu peux initialiser ton calendrier à l'initialisation de l'USF qui le contient avec la date du jour comme suit

private sub userform_unitialize()
dim Dat as Date

Dat = Now
With Calendar1
.Day = Left(Dat, 2)
.Month = Mid(Dat, 4, 2)
.Year = Mid(Dat, 7, 4)
End With

end Sub

Sinon il est accessible, dans la fenêtre propriétes de ton USF tu as normalement :

un userform et un calendar et le cas échéant un commandbutton, en cliquant sur calendar, tu auras toutes les propriétés de calendar.


A+++

 

[francois]

merci à vous
en mettant ;UserForm1.Calendar1.Today au niveau de user form initialize ça vas au poil
il s'ouvre bien au 8 mai , c'est quand mème mieux qu'au 23 décembre 1937 lol
merci beaucoup
francois