Condition dans un userform

[gerard55]

Bonjour à tous
j'ai un userform à renseigner. Dans cet userform, il y a une date. je veux que si la date est absente ou si son format n'est pas bon, un message d'erreur s'affiche. Ce que fait le code si dessous mais, il ferme l'userform. Or je voudrais pouvoir corriger et continuer.
Merci de m'indiquer si vous le savez comment rédiger ce code
[c4] = TextBoxDate.Value
TextBoxDate = Format(TextBoxDate, "dd/mmm/yyyy")
If ("c4") <> Format(TextBoxDate, "dd/mmm/yyyy") Then MsgBox ("Merci de renseigner la date ou de corriger le format")

Merci d'avance
Gérard

 

[david84]

Re : Condition dans un userform

Bonjour,
Pourquoi ne pas plutôt utiliser une InputBox à la place de la MsgBox ?
A+

 

[gerard55]

Re : Condition dans un userform

Peut être mais alors comment écrire ce code. Il faut aussi conserver le format date
a+
Gérard

 

[david84]

Re : Condition dans un userform

Peut être mais alors comment écrire ce code. Il faut aussi conserver le format date
a+
Gérard

Exemple tiré de l'aide d'Excel :

Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Entrez une valeur comprise entre 1 et 3"
Title = "Démonstration de InputBox" ' Définit le titre.
Default = "1" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)

' Utilise le fichier d'aide et le contexte.
' Le bouton Aide est ajouté automatiquement.
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' Affiche la boîte de dialogue sur la position 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)

Pour la vérification du format :
- utiliser l'élément "default" de l'inputBox pour afficher le format voulu lors de son affichage (ex : "rentrer une date au format jj/dd/aaaa")
- il te faudra également utiliser l'un des événements du contrôle dans lequel la date est entrée pour vérifier si la chaîne entrée correspond bien à une date valide (utiliser IsDate) et si le format utilisé est le bon.
A+
Edit : l'exemple utilise la fonction InpuBox mais tu peux également regarder la méthode InputBox

 

[gerard55]

Re : Condition dans un userform

Merci beaucoup David 84
a+ Gérard