textbox en format date

Version imprimable

04/04/2009, 08h29
macduss

textbox en format date

Bonjour à tous!

je suis nouveau sur le forum ainsi que pour vba.

je suis en train de créer une macro utilisant des userforms. Sur ceux-ci, j'ai mis des textbox dans lesquels je souhaite differentes données.
l'un d'entre eux, concerne la date.
J'aimerais pouvoir y inserer la date sous le format jj/mm/aaaa sans devoir pour autant l'écrire en entier.
je me comprends...:D
par exemple je souhaiterai voir à l'écran 17/03/2009 en ayant simplement taper "17032009" voir mieux "170309".
Comment dois je proceder?
Merci

bonjour macduss le forum tu peus faire un truc comme cela!!
j avais une version simplifie mais la trouve plus desole!!
Option Explicit
Dim Chge As Boolean

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TextBox1_Change()
If Not Chge Then
    With TextBox1
      Select Case Len(.Text)
        Case 2, 5
          .Text = .Text & "/"
      End Select
    End With
  Else
    Chge = False
  End If
End Sub

Code:

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Select Case KeyCode
    Case Is = 8
      Chge = True
    Case Is = 13, 96 To 105
    Case Else
    KeyCode = 0
  End Select
End Sub

Code:

1
2
3
4
5
6
7
Private Sub TextBox1_KeyUP(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Select Case KeyCode
    Case Is = 46
      Chge = True
     TextBox1 = ""
     End Select
   End Sub

'proprietes de la textbox1 MaxLength a 8

06/04/2009, 12h33
Danger

Toutefois je te conseille d'utiliser DTPicker. Ça ne répond pas à ton besoin énoncé sauf si ton OS utilise le même format de date que tu veux avoir dans ton Excel et encore, le séparateur est '-' et non '/' je ne sais pas si on peut le changer?

Avantage d'utilisation: tu n'auras pas à contrôler la validité de la date.