Private Sub TextBox1_Change()
Static t As String
With TextBox1
If Len(.Value) > Len(t) Then
If .Value Like "*[A-z]*" Then .Value = "": Beep
If Val(.Value) > 31 Then .SelStart = 0: .SelLength = 3: Beep
If Len(.Value) = 2 Or Len(.Value) = 5 Then .Value = .Value & "/"
If Len(.Value) = 6 Then If Not IsDate(.Value & "2000") Then .SelStart = 3: .SelLength = 3: Beep
Else
If Len(.Value) = 2 Then .Value = ""
If Len(.Value) > 6 Then .Value = Left(.Value, 6) ': Exit Sub
If Len(.Value) < 6 Then .Value = Left(.Value, 3) ': Exit Sub
End If
t = .Value
End With
End Sub
Private Sub TextBox1_Change()
Static t As String
With TextBox1
If .SelStart + 1 < Len(.Value) Then MsgBox "nanan!! va faire la sieste tu me la fera pas a l'envers": .Value = t
.Value = Mid(.Value, 1, 10)
If Len(.Value) > Len(t) Then
If .Value Like "*[A-z]*" Then .Value = "": Beep
If Val(.Value) > 31 Then .SelStart = 0: .SelLength = 3: Beep
If Len(.Value) = 2 Or Len(.Value) = 5 Then .Value = .Value & "/"
If Len(.Value) = 6 Then If Not IsDate(.Value & "2000") Then .SelStart = 3: .SelLength = 3: Beep
Else
If Len(.Value) = 2 Then .Value = ""
If Len(.Value) > 6 Then .Value = Left(.Value, 6) ': Exit Sub
If Len(.Value) < 6 Then .Value = Left(.Value, 3) ': Exit Sub
End If
t = .Value
End With
End Sub