[VBA]Contrôle de saisie format jj/mm/aaaa

Résolu/Fermé
lml-mike Messages postés 453 Date d'inscription vendredi 16 février 2007 Statut Contributeur Dernière intervention 18 novembre 2018 - 8 sept. 2010 à 15:09
lml-mike Messages postés 453 Date d'inscription vendredi 16 février 2007 Statut Contributeur Dernière intervention 18 novembre 2018 - 8 sept. 2010 à 15:56
Bonjour,

Je cherche simplement à faire un contrôle de saisie sur un inputbox, qui indique une mauvaise saisie si :

- La date n'est pas au format jj/mm/aaaa
- La date est supérieur à la date d'aujourd'hui

C'est tout :)

Merci pour votre aide !

Mike.
A voir également:

2 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 203
8 sept. 2010 à 15:34
Bonjour,

Une piste :

Sub testSaisieDate()
Dim rep As String

    rep = InputBox("Saisir la date")
    
    If Not IsDate(rep) Then
        MsgBox "Ce n'est pas un format date"
        test
    End If
    If CDate(rep) > Date Then
        MsgBox "La date doit être inférieure à la date d'aujourd'hui"
        test
    End If
    If rep <> Format(rep, "dd/mm/yyyy") Then
        MsgBox "le format doit être jj/mm/aaaa"
        test
    End If
End Sub


;o)
10