Comparer DTPicker
Bonjour,
a tous .
Je me trouve face au soucis suivant
j'aimerai comparer deux DTPicker de Deux Userform differente. Ainsi donc dans mon classeurA j'ai creer 2 UserForm " UserForm1" & " UserForm2 "
chacune de ces UseForm comprend deux DTpicker (une pour affiche la date l'autre l'heure). Dans mon UserForm2 j'aimerai verifie que la date et l'heure entrées ne sont pas plus petites que celles du UserForm1 . j'ai ecris le code suivant dans le "Userform2"qui ne fonctionne pas: erreur 424
Private Sub DTPickerFin_CloseUp()
If (Format(DTPickerFinDate.Value, "DD.MM.YYYY") & " " & Format(DTPickerFinHeure.Value, "hh:mm")) < _
(Format(DTPickerAnDate.Value, "DD.MM.YYYY") & " " & Format(DTPickerAnaHeure, "hh:mm")) Then
MsgBox ("date de fin avant date Analyse :" & Chr(13) & "entre une nouvelle date")
End If
End Sub
a tous .
Je me trouve face au soucis suivant
j'aimerai comparer deux DTPicker de Deux Userform differente. Ainsi donc dans mon classeurA j'ai creer 2 UserForm " UserForm1" & " UserForm2 "
chacune de ces UseForm comprend deux DTpicker (une pour affiche la date l'autre l'heure). Dans mon UserForm2 j'aimerai verifie que la date et l'heure entrées ne sont pas plus petites que celles du UserForm1 . j'ai ecris le code suivant dans le "Userform2"qui ne fonctionne pas: erreur 424
Private Sub DTPickerFin_CloseUp()
If (Format(DTPickerFinDate.Value, "DD.MM.YYYY") & " " & Format(DTPickerFinHeure.Value, "hh:mm")) < _
(Format(DTPickerAnDate.Value, "DD.MM.YYYY") & " " & Format(DTPickerAnaHeure, "hh:mm")) Then
MsgBox ("date de fin avant date Analyse :" & Chr(13) & "entre une nouvelle date")
End If
End Sub
