Private Sub CommandButton1_Click()
Dim jour, jfinmois As Date
Dim ligne
jour = TextBox1.Text
jfmois = DateAdd("m", 1, jour) - Day(jour)
ligne = Sheets("Feuil1").Range("A36000").End(xlUp).Row + 1
For j = 0 To DateDiff("d", jour, jfmois)
Sheets("Feuil1").Cells(ligne, 1).Offset(j, 0).Value = DateAdd("d", j, jour)
Next j
Unload Me
End Sub
With ThisWorkbook.Worksheets("A")
lgn = IIf(.Range("A3") = "", 3, .Range("A" & Rows.Count).End(xlUp)(2).Row)
.Range("A" & lgn).Resize(UBound(TabCalendar, 2), UBound(TabCalendar, 1)) = Application.WorksheetFunction.Transpose(TabCalendar)
lgn = .Range("A" & Rows.Count).End(xlUp)(2).Row
.Range("A3:A" & lgn).NumberFormat = "dd/mm/yyyy"
.Range("A3:A" & lgn).RemoveDuplicates Columns:=1, Header:=xlNo
.Range("A3:E" & lgn).Sort , Key1:=.Range("A3"), Order1:=xlAscending, Header:=xlNo
End With
Public Function GetFirstDayOfMonth(ByVal MyDate As Date) As Date
GetFirstDayOfMonth = DateSerial(Year(MyDate), Month(MyDate), 1)
End Function
Public Function GetLastDayOfMonth(ByVal MyDate As Date) As Date
GetLastDayOfMonth = DateSerial(Year(MyDate), Month(MyDate) + 1, 0)
End Function