Inputbox ?

[Mattharm]

Bonsoir à tous,

J'ai fais une inputbox qui enregistre une date :

Dim DateV as date

dateV = Inputbox("Quel est la date ?")

Comment puis je faire pour éviter une erreur si l'utilisateur ne met rien dans l'inputbox ??

Merci à tous,
Matthieu

 

[joss56]

Re : Inputbox ?

bonsoir, essaie ça:

if datev="" then exit sub

 

[Pierrot93]

Re : Inputbox ?

Bonsoir Matthieu, Joss

une autre méthode, par contre tu laisses la variable DateV en variant

Sub TEST()
Dim DateV

Do While Not IsDate(datev)
    DateV = InputBox("Quel est la date ?")
Loop

End Sub

bonne soirée
@+

 

[Mattharm]

Re : Inputbox ?

bonsoir, essaie ça:

if datev="" then exit sub

Bonsoir,

J'avais déja essayé ca ne fonctionne pas ! Merci quand même 🙂

 

[Mattharm]

Re : Inputbox ?

Bonsoir Matthieu, Joss

une autre méthode, par contre tu laisses la variable DateV en variant

Sub TEST()
Dim DateV

Do While Not IsDate(datev)
    DateV = InputBox("Quel est la date ?")
Loop

End Sub

bonne soirée
@+

Désolé mais je préfèrerais gardé ma variable en type date, c'est pour un enregistrement 🙂

A moins que l'on ne puisse transformé la variable en date ??

 

[Pierrot93]

Re : Inputbox ?

tu as lus le code ? et exécuté pas à pas et vu l'évolution de tavariable ? Merci quand même

 

[Mattharm]

Re : Inputbox ?

tu as lus le code ? et exécuté pas à pas et vu l'évolution de tavariable ? Merci quand même

Bonsoir Pierrot !

Désolé, je n'avais pas bien compris ton code....... je m'excuse !
Merci à toi pour cette solution.

Encore désolé.

Matthieu