Private Sub ComboBox3_Change()
Dim dat$
If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Or ComboBox3.ListIndex = -1 Then ComboBox3 = "": Exit Sub
dat = Right(ComboBox3, 2) & "/" & ComboBox2 & "/" & ComboBox1
If IsDate(dat) Then ActiveCell = CDate(dat): Unload Me
End Sub
Private Sub ComboBox3_Enter()
Dim i%, dat As Date, jour$, a$(), n%
If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then ComboBox3.Clear: Exit Sub
For i = 1 To 31
dat = DateSerial(ComboBox1, ComboBox2, i)
jour = Application.Proper(Left(Format(dat, "ddd"), 2)) & " " & Format(i, "00")
If Month(dat) = Val(ComboBox2) Then ReDim Preserve a(n): a(n) = jour: n = n + 1
Next
ComboBox3.List = a: ComboBox3.DropDown
End Sub
Private Sub UserForm_Initialize()
Dim a(10), b(11), i%
For i = 0 To UBound(a): a(i) = CStr(Year(Date) - 1 + i): Next
ComboBox1.List = a
For i = 0 To UBound(b): b(i) = Format(i + 1, "00"): Next
ComboBox2.List = b
ComboBox1 = Year(Date): ComboBox2 = Format(Month(Date), "00")
End Sub