Bonjour, je dois faire un travail en VBA dans lequel j'aimerais vérifier si une date est valide (ex : 31 février etc). Pour cela, j'ai mis ce code dans un sub:
Dim dateTest as Date
Dim jourTest as integer
Dim jour as integer
dateTest = DateSerial(ComboBox_annee1.Value, ComboBox_mois1.Value, ComboBox_jour1.Value)
jourTest = Day(dateTest1)
jour = ComboBox_jour1.Value
If jourTest1 <> jour1 Then
messageErr = MsgBox("Date incorrecte !", vbOKOnly + vbCritical, "Erreur")
End If
J'utilise DateSerial car j'ai vu que lorsque je mettais par exemple 31 avril, la date était convertie en 1er juin. Or, la msg box est envoyée dans tous les cas, mêmes les dates qui ne devraient pas être mauvaises. Je ne sais pas comment corriger cela.
Merci de votre aide