Vérification format date

F

François

Guest
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

XLDnaute Accro
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.

Code:
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 ;)
 

Eric C

XLDnaute Accro
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]
 

Pièces jointes

  • Francois.zip
    8.4 KB · Affichages: 14
  • Francois.zip
    8.4 KB · Affichages: 18
  • Francois.zip
    8.4 KB · Affichages: 15

Discussions similaires

Réponses
5
Affichages
555

Statistiques des forums

Discussions
300 793
Messages
1 987 231
Membres
209 745
dernier inscrit
gilboss