Format de date

[Yann]

Bojour à tous,

Je voudrais dans un textbox, imposer un format de date à l'utilisateur afin de contrôler la saisie dans ce textboX.

Quelqu'un a t-il une idée ? (moi non ...)

Merci bcp d'avance à tous.

Yann

 

[P@tB]

Salut Yann

Essaie avec le code suivant, trouvé sur ce forum :


Private Sub TextBox1_Change()
'Ajout des barres obliques
Dim Texte As String
Texte = TextBox1.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "/"
End Select
TextBox1.Text = Texte
End Sub

Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ArrD
ArrD = Split(TextBox1.Text, Application.International(xlDateSeparator))
If UBound(ArrD) <> 2 Then GoTo Fin
If Not IsDate(TextBox1.Value) Then GoTo Fin
Exit Sub
Fin:
MsgBox "date non valide"
Cancel = True
End Sub


Bonne journée
P@tB

 

[Yann]

Merci beaucoup P@tb,

Encore une petite question, si je voulais mettre ce code derrière un commandbutton qui seriat une valisation de cette date. Il me faudrait une requête du genre :

If date OK then
....
Else
...
End if

Je n'arrive pas a adapté le code que tu m'as donné ...

Merci d'avance pour votre aide.

Yann

 

[@+Thierry]

Bonjour Yann, re P@tB, le Forum

La réponse de P@tB, si appliquée dans les évènements indiqués ne nécessite pas de button de Validation de Date Saisie.

En effet "TextBox1_Change" (Une méthode de notre Ti national, que j'ai moi-même repris dans une ou deux démos ici)
se charge de "saisir" les séparateurs "/" date à la place du User

Et ensuite "TextBox1_Exit" se charge de rappeler le user à l'ordre si il n'a pas saisi une date valide... Au moment où il sort de la TextBox (donc pas besoin de bouton)

Si tu y tiens absolument c'est ce dernier code que tu pourrais dans un Bouton au lieu de l'évènement Exit...

Bon Appétit
@+Thierry

 

[Yann]

Merci pour ton explication Thierry.

Yann

 

[Yann]

Thierry ou autre aideur,

Je t'envoie un fichier exemple avec le code du post d'avant, mais lorsque l'utilisateur sort du textbox rien ne se passe même qd la date n'est pas valide. Je ne comprends pas.

Merci d'avance

Yann

 

[Yann]

avec le fichier exemple c'est mieux ...

 

[P@tB]

Re-bonjour Yann et Thierry

Ainsi donc, cette macro est de Ti...

J'ai pompé plein de trucs sur ce forum et je n'ai noté aucun nom des contributeurs.
Rhooo la honte ! ;-)

Alors une bonne soirée à tous, et un coucou particulier à Ti.
P@tB