Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
Derlig = Range("A2").End(xlDown).Row
TotLig = -1
ListBox1.Clear
With ListBox1
For Lig = 2 To Derlig
If CDate(Cells(Lig, 1).Value) = CDate(ComboBox1.Value) Then
.AddItem: TotLig = TotLig + 1
For I = 0 To 2: .List(TotLig, I) = Cells(Lig, I + 1).Value: Next
End If
Next
End With
End Sub
Private Sub UserForm_Activate()
ComboBox1.Clear
Derlig = Range("A2").End(xlDown).Row
For Lig = 1 To Derlig
If IsDate(Cells(Lig, 1).Value) Then ComboBox1.AddItem Cells(Lig, 1).Value
Next
ComboBox1.ListIndex = -1
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub