Bloquer utilsateur si Date début est supérieure à la date de fin combobox

Bonjour,

Je n'arrive à bloquer l'utilisateur si la date de début est supérieur à la date fin sachant

Private Sub ComboBox1_GotFocus()
Me.ComboBox1.List = Array("31/12/2021", "31/12/2022", "30/11/2023")
End Sub
Private Sub ComboBox2_GotFocus()
Me.ComboBox2.List = Array("01/01/2021", "01/01/2022", "01/01/2023")
End Sub
'Private Sub ComboBox2_Click()
'If Me.ComboBox2.Value > ComboBox1.Value Then
'MsgBox "Attention date début doit être inférieur à la date de fin", vbCritical, "Erreur"
'End If
'End Sub
Private Sub ComboBox1_Click()
If Me.ComboBox1.Value < ComboBox2.Value Then
MsgBox "Attention date début doit être inférieur à la date de fin", vbCritical, "Erreur"
End If
End Sub

Merci

Salut,

Modifie ta condition ainsi :

If CDate(ComboBox1) < CDate(ComboBox2) Then

Cordialement.

Merci @Yvouille ça fonctione parfaitement merci à tous