Contrôle sur fonction "INPUTBOX"

[Lighter]

Bonjour à tou(te)s
Un petit point qui m'ennuie beaucoup. Afin d'entrer une date, j'utilise la fonction INPUTBOX de la manière suivante :

Sub Macro1()
Dim VDate As Date
VDate = InputBox("Entrez la date JJ/MM/AA", ("Selection"))
Cells(1, 1) = VDate
End Sub

Comment puis-je tester si l'utilisateur a bien rentré la date au format JJ/MM/AA lorsqu'il clique sur le bouton "OK" et faire de sorte que lorsqu'il appuie sur le bouton "Annuler" il sorte de l'application.

Encore merci à tou(te)s de m'apporter votre aide.
Bonne journée

 

[pierrejean]

Re : Contrôle sur fonction "INPUTBOX"

bonjour Lighter

A tester:

Sub Macro1()
Dim VDate As Variant
debut:
VDate = InputBox("Entrez la date JJ/MM/AA", "Selection")
If VDate = "" Then
Exit Sub
Else
If Not IsDate(VDate) Then
 MsgBox ("une date S.V.P")
 GoTo debut
Else
 Cells(1, 1) = CDate(VDate)
End If
End If
End Sub

 

[Lighter]

Re : Contrôle sur fonction "INPUTBOX"

Alors là PierreJean, encore une fois, mille mercis pour ton aide.
J'errai dans l'ombre et me voilà soudainement dans la lumière.