lafouine4478
XLDnaute Nouveau
[Resolu] Controle de la valeur saisie
Bonjour a toutes et tous,
Je galère pour gerer les erreurs possible faite par un utilisateur lors de la saisie d'une valeur format date.
Je désire prendre en compte que l'utilisateur rentre du texte ou un autre format de date ex 20.10.2010
J'ai tester en prenat directement une valeur date mais je ne peut plus gerer le bouton annulé ou la croix de la msgbox
Bonjour a toutes et tous,
Je galère pour gerer les erreurs possible faite par un utilisateur lors de la saisie d'une valeur format date.
Sub Test2()
Dim Donnee As Variant
Dim varDate As Date
Donnee = Application.InputBox("Saisissez la date de fin de mois au format date 30/04/2010:", "Date fin de Mois")
If Donnee = o Then
MsgBox " opération annulée"
Exit Sub
End If
'Intercepte l'utilisation du bouton "Annuler" et la croix de fermeture.
If VarType(Donnee) = vbBoolean Then
MsgBox " opération annulée"
Exit Sub
End If
varDate = Donnee
MsgBox varDate
MsgBox Donnee
End Sub
Je désire prendre en compte que l'utilisateur rentre du texte ou un autre format de date ex 20.10.2010
J'ai tester en prenat directement une valeur date mais je ne peut plus gerer le bouton annulé ou la croix de la msgbox
Dernière édition: