Fonction pour controle date

[ifi77]

Bonjour @ tous,

je viens vous demander un petit coup de main,
je cherche à faire une fonction automatique de contrôle de la date pour toutes mes textbox avec comme base:

Function controledate()
If TextBox1.Value = "" Then TextBox1.Value = Date
If Len(TextBox1.Text) = 0 Then
GoTo Fin
End If
If Len(Replace(TextBox1.Text, "/", "")) <> 6 And Len(Replace(TextBox1.Text, "/", "")) <> 8 Then
GoTo ErreurSaisie
End If
If Len(TextBox1.Text) = 6 Then
If Right(TextBox1, 2) > 50 Then
TextBox1 = Left(TextBox1, 4) & 19 & Right(TextBox1, 2)
Else
TextBox1 = Left(TextBox1, 4) & 20 & Right(TextBox1, 2)
End If
End If
TextBox1.Text = Left(Replace(TextBox1.Text, "/", ""), 2) & "/" & Mid(Replace(TextBox1.Text, "/", ""), 3, 2) & "/" & Right(Replace(TextBox1.Text, "/", ""), 4)
TextBox1.MaxLength = 10

If Not IsDate(TextBox1.Value) Then
GoTo ErreurSaisie
End If
GoTo Fin

ErreurSaisie:
Cancel = True
With TextBox1
.BackColor = &HFF&
MsgBox "Date saisie incorrecte"
TextBox1.Text = Replace(TextBox1.Text, "/", "")
.SetFocus
.SelStart = 0
.SelLength = Len(TextBox1.Text)
End With

Fin:

End function

Je l'ai fait avec textbox 1 mais j'aimerais qu'il me fasse la même chose quelque soit ma textbox en utilisant dans l'userform:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
controledate
End Sub

D'avance merci

 

[Roland_M]

Re : Fonction pour controle date

bonjour,

avec isdate()

exemple if not isdate(TextBox1.Value) then msgbox "ce n'est pas une date !"

 

[Dranreb]

Re : Fonction pour controle date

Bonjour.

Transmettez le TexBox en paramètre à la Function. Normalement une Function doit retourner une valeur, un Boolean par exemple.

Function DateTbxErronée(ByVal Tbx As Msforms.TextBox) as Boolean
If Tbx.Text = "" Then Tbx.Text = Date
DateTbxErronée = Not IsDate(Tbx.Text)
End Function

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = DateTbxErronée(Me.TextBox1)
End Sub

À mon avis c'est suffisant, mais alors si simple que ça ne vaut presque plus le coup d'écrire une Function.