Comparer DTPicker
colombe88
Messages postés
41
Statut
Membre
-
.Grincheux. Messages postés 211 Date d'inscription Statut Membre Dernière intervention -
.Grincheux. Messages postés 211 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Comparer DTPicker
- Comparer prix amazon - Accueil - Commerce
- Prix Amazon : comment suivre les évolutions de tarifs - Guide
- Audio comparer - Télécharger - Nettoyage
- Comparer pdf - Télécharger - PDF
- Joybuy comparer - Guide