Lone-wolf
XLDnaute Barbatruc
Bonjour à tous 👋🙂
Je suis entrain de faire un calendrier sur formulaire. Comme il y a 42 labels, j'ai opté pour un module de classe. Mon souci c'est que j'ai aussi 2 textbox's (date debut - date de fin). Je n'arrive pas à faire en sorte, d'avoir une date de début et une date de fin.
Je suis entrain de faire un calendrier sur formulaire. Comme il y a 42 labels, j'ai opté pour un module de classe. Mon souci c'est que j'ai aussi 2 textbox's (date debut - date de fin). Je n'arrive pas à faire en sorte, d'avoir une date de début et une date de fin.
VB:
Option Explicit
Public WithEvents Groupe_Lb As MSForms.Label
Private Sub Groupe_Lb_Click()
If memoire = False Then
memoire = True
With Calendrier
sMois = Month(DateValue("01 " & .CbMois & " " & .CbAnnees))
mem = CDate(Groupe_Lb.Caption & "." & sMois & "." & .CbAnnees.Value)
.TbDeb = Format(CDate(mem), "dd.mm.yyyy")
End With
ElseIf Calendrier.TbDeb <> vbNullString Then
memoire = False: Calendrier.TbFin = Format(CDate(mem), "dd.mm.yyyy")
End If
End Sub
Dernière édition: