Condition dans un userform

gerard55 · 29 Mars 2014

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 · 29 Mars 2014

Re : Condition dans un userform

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

gerard55 · 29 Mars 2014

Re : Condition dans un userform

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

david84 · 29 Mars 2014

Re : Condition dans un userform

gerard55 à dit:
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 · 29 Mars 2014

Re : Condition dans un userform

Merci beaucoup David 84
a+ Gérard

Condition dans un userform

gerard55

XLDnaute Occasionnel

david84

XLDnaute Barbatruc

gerard55

XLDnaute Occasionnel

david84

XLDnaute Barbatruc

gerard55

XLDnaute Occasionnel

Discussions similaires