T
Tchupacabra
Guest
[ VBA ] >> Problème avec le ANNULER d'un InputBox ......
Bonjour à tous,
je voudrais obliger l'utilisateur a rentrer une date à l'aide d'un InputBox :
OptionExplicit
Dim Message As String
Dim Annee As Integer
Message = Chr(10) & Chr(10) & " Quelle est l'année de référence ? " & Chr(10) & Chr(10)
Do
Annee = InputBox(Message, " Création de la constante Annee", Format(Date, "yyyy"))
Loop Until (Annee > 2050) And (Annee < 2000)
Le problème est lorsque l'utilisateur rentre autre chose qu'une date ou lorsque il clic sur ANNULER !
Alors mes questions :
1) Est-il possible d'enlever le bouton ANNULER ?
2) Comment obliger l'utilisateur a ne mettre que des chiffres ?
merci d'avance
@+
Bonjour à tous,
je voudrais obliger l'utilisateur a rentrer une date à l'aide d'un InputBox :
OptionExplicit
Dim Message As String
Dim Annee As Integer
Message = Chr(10) & Chr(10) & " Quelle est l'année de référence ? " & Chr(10) & Chr(10)
Do
Annee = InputBox(Message, " Création de la constante Annee", Format(Date, "yyyy"))
Loop Until (Annee > 2050) And (Annee < 2000)
Le problème est lorsque l'utilisateur rentre autre chose qu'une date ou lorsque il clic sur ANNULER !
Alors mes questions :
1) Est-il possible d'enlever le bouton ANNULER ?
2) Comment obliger l'utilisateur a ne mettre que des chiffres ?
merci d'avance
@+