calendar dans un USF

[petchy]

Bonjour le Forum,
une petite question:
j'ai créer un calendar dans un USF et je voudrais y mettre le N° de semaine ,est ce possible.
merci

 

[michel]

bonsoir Petchy

ce que je te proposes n'est pas directement dans le calendrier .
dans ton userform tu peux créer un label à coté du calendrier , et y insérer ( par exemple ) la procédure ci dessous

mise à jour lors de l'initialisation de l'usf
Private Sub UserForm_Initialize()
Dim Sem As Date
Sem = Format(Calendar1, "WW", , vbFirstJan1)
UserForm1.Label1.Caption = "Semaine " & Format(Sem, "00")
End Sub

mise à jour lors d'un clic sur le calendrier
Private Sub Calendar1_Click()
Dim Sem As Date
Sem = Format(Calendar1, "WW", , vbFirstJan1)
UserForm1.Label1.Caption = "Semaine " & Format(Sem, "00")
End Sub

bonne soirée
michel

 

[petchy]

bonsoir le forum

merci Michel pour tes solutions,j'ai pris la seconde car la premiere me créer une erreur 13.

@ plus
petchy