Vérification format date

[François]

Bonjour le forum,

Lorsque j’en une date dans mon userform, j’aimerais faire la vérification du format de la date de la façon suivante : aaaa-mm-jj.

Quelle est la ligne de code à insérer pour cette vérification ?

TextBox3:
If TextBox3.Value = '' Then ‘ probablement faire la vérification ici ?
MsgBox 'Quelle est la date !', vbExclamation, _
'ERREUR ... Date S.V.P. ?'
Exit Sub
End If

Merci

 

[Eric C]

Bonjoir le forum
Bonjoir François

Essaies ce code. Je n'ai pas placé de MsgBox car si le format de la date est erroné tu ne peux continuer.

Option Explicit

Private LaDate As Date 'Variable Publique niveau UserForm


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
If .Value = '' Then Exit Sub 'On sort si Vide

If Not IsDate(.Value) Then
.SelStart = 0
.SetFocus
.SelLength = Len(.Text)
Cancel = True
Else
LaDate = .Value
.Text = Format(.Value, 'yyyy-mm-dd')
End If
End With
End Sub

Bonne soirée à toutes & à tous 😉

 

[François]

Bonsoir le forum, bonsoir Éric,

Cela ne fonctionne pas «Objet non spécifié» ?

Merci

 

[Eric C]

Bonjour le forum
Bonjour François

J'ai joint un ti fichier. Trop vite hier soir. Si tu entres une date sous la forme 12/05/2005 donc bonne elle est, à la sortie de ton TextBox1, convertie en 2005-05-12.

Bonne journée à toutes & à tous 😉 [file name=Francois.zip size=8588]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Francois.zip[/file]