vérifier la validité d'un format date

[sri75]

Bonjour , j'utilise une inputbox pour faire saisir une date au format dd/mm/yyyy

je cherche une commande pour faire boucler ma macro de nouveau sur l'input box si la date n'est pas conforme à ce format.

je ne cherche pas particulièrement à vérifier la validité de la boite, juste à tester la validité de la saisie
ex 01/01/2006 ok 010106 ou 01012006 non.

Merci de votre aide.

 

[Hervé]

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

bonjour

a essayer :

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

 

[sri75]

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

 

[Hervé]

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.

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

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

salut

 

[sri75]

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