Valide si date ok

[BOCARAMEL]

Bonjour a tous 🙂

j'utilise un Userform pour rentrer une nouvelle mission avec un multipage

comment vérifier si le retour n'est pas inférieur au départ 😕

j'ai essayé le code suivant mais ça ne fonctionne pas

Private Sub Image45_Click()
If Format(TextBox9.Value, "mm/dd/YY") And Format(TextBox11.Value, "hh:mm") < Format(TextBox10.Value, "mm/dd/YY") And Format(TextBox14.Value, "hh:mm") Then
Dim retour
retour = MsgBox("ERREUR sur les dates", vbCritical + vbOKOnly, "ERREUR...")
Else
'affiche la page suivante
MultiPage2.Value = 1
End If
End Sub

Merci de votre aide
et bonne soirée a tous

bocaramel

 

[Excel-lent]

Re : Valide si date ok

Bonsoir BOCARAMEL,

La macro ci-dessous est très loin d'être ma plus belle macro, mais elle fonctionne :

Private Sub Image45_Click()

If TextBox10.Value < TextBox9.Value Then
    Dim retour
    retour = MsgBox("ERREUR sur les dates", vbCritical + vbOKOnly, "ERREUR...")
Else
        If TextBox10.Value = TextBox9.Value And TextBox14.Value < TextBox11.Value Then
                retour = MsgBox("ERREUR sur les dates", vbCritical + vbOKOnly, "ERREUR...")
        Else
            'affiche la page suivante
            MultiPage2.Value = 1
        End If
End If

End Sub

Bonne soirée à toi aussi

PS. : pense à la présentation de ta macro! N'hésite pas à faire des retraits pour rendre ton code plus clair pour toi et pour les autres 😉 (Pour l'instant tes codes sont court et simple, mais prend des bonnes habitude tout de suite!)

Edition : Bonsoir Hulk, je vois qu'on est partie sur la même piste! 🙂 Je fus le plus rapide, mais je constate que ton code est le plus jolie et le plus concis!!!

 

[Hulk]

Re : Valide si date ok

Hello,

Essaie ça..

Private Sub Image45_Click()
    
    Dim retour
    
    If TextBox9 < TextBox10 Then
        retour = MsgBox("ERREUR sur les dates", vbCritical + vbOKOnly, "ERREUR...")
    ElseIf TextBox9 = TextBox10 And TextBox11 < TextBox14 Then
        retour = MsgBox("ERREUR sur les dates", vbCritical + vbOKOnly, "ERREUR...")
    Else
        MultiPage2.Value = 1
    End If
    
End Sub

Cdt, Hulk.

EDIT : Salut Excellentissime 😀

 

[BOCARAMEL]

Re : Valide si date ok

re
Merci Excel-lent , Merci Hulk
pour votre aide

le code fonctionne mais petit souci quand je marque 🙁

date de depart 10/08/09
heure de depart 9:00
date de retour 08/09/09
heure de retour 10:00

ça bloque cela m'affiche le msgbox
peux étre un histoire de format de date 😕


bocaramel

 

[Excel-lent]

Re : Valide si date ok

Bonsoir le fil,

Je retesté mon code, en effet, si pour la date de retour tu écris :
8/9/9 -> ça fonctionne
8/09/09 -> ça fonctionne
8/09/2009 -> ça fonctionne

mais dés qu'on écrit "08..." ça plante et cela quelque soit le format de la date mise pour "date d'entrée"!!!!

Bizarre!!!

Il se fait tard, je vais me couché. Si personne n'a trouvé d'ici demain soir, j'essayerais de trouver une parade!

Bonne nuit

 

[BOCARAMEL]

Re : Valide si date ok

Bonne nuit a toi aussi et encore merci

pour info le format sera toujours "01/01/01" car j'ai un calendrier automatique
pour l'insertion de la date


ça plante aussi avec 10/12/09 au 05/01/10

bizarre 😕

bonne nuit a tous 🙂

 

[kjin]

Re : Valide si date ok

Bonsoir,
J'ai renommé les Textbox(es) Textbox1 à 4
Tu peux enlever les contrôles d'erreurs s'ils ne sont pas utiles

Private Sub Image45_Click()
For i = 1 To 4
    If Controls("TextBox" & i) = "" Then
        MsgBox "Tous les champs ne sont pas remplis"
        Controls("TextBox" & i).SetFocus
    Exit Sub
    ElseIf Not IsDate(Controls("TextBox" & i)) Then
        MsgBox "format Date et heure non conforme"
        Controls("TextBox" & i).SetFocus
    Exit Sub
    End If
Next

If CDec(CDate(TextBox1)) + CDec(CDate(TextBox2)) > CDec(CDate(TextBox3)) + CDec(CDate(TextBox4)) Then
MsgBox "Le départ est antérieure à l'arrivée"
Exit Sub
End If

End Sub

A+
kjin

 

[BOCARAMEL]

Re : Valide si date ok

Bonsoir a tous 🙂

vraiment merci kjin ça fonctionne nickel

bonne soirée a tous

bocaramel