vérifier la validité d'un format date

Hervé

XLDnaute Barbatruc

• 4 Décembre 2006

• #2

Re : vérifier la validité d'un format date

bonjour

a essayer :

Code:

Dim bon As Boolean
Dim valeur As String


Do While bon = False
    valeur = InputBox("date ? (format : dd/mm/yyyy)")
    If valeur = "" Then Exit Sub
    If valeur Like "##/##/####" Then
        bon = True
    Else
        MsgBox "format incorrect."
    End If
Loop

salut

 

Vote positif 0 Vote négatif

S

sri75

XLDnaute Occasionnel

• 4 Décembre 2006

• #3

Re : vérifier la validité d'un format date

Merci pour cette réponse;

serait il possible de poser la condition inverse ?

au lieu de If dateachat Like "##/##/####" Then

d'avoir l'équivalent de If dateachat is not Like "##/##/####" Then ?

je voudrais que ma macro se bloque si la saisie est fausse et continue si elle est juste.

merci de ton aide

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 4 Décembre 2006

• #4

Re : vérifier la validité d'un format date

re

je voudrais que ma macro se bloque si la saisie est fausse et continue si elle est juste.

Cliquez pour agrandir...

ce n'est pas ce que fait le code que je t'ai proposé ?

sinon pour le contraire : If Not valeur Like "##/##/####" Then

salut

 

Vote positif 0 Vote négatif

S

sri75

XLDnaute Occasionnel

• 5 Décembre 2006

• #5

Re : vérifier la validité d'un format date // final

ok je n'avais pas bien compris le do loop.

Sinon j'ai aussi trouvé ce code sur le forum et qui fonctionne à merveille.

dateachat = InputBox("Saisissez la date d'achat du véhicule au format 01/01/2006", "Date d'achat du véhicule")


If Not IsDate(dateachat) Then

MsgBox "format incorrect."
End If

En combinant les deux codes on arrive à cadrer tous les cas.

Merci de ton aide

 

Vote positif 0 Vote négatif