Textbox : taper Date sans slash

Fermé
LANGAZOU Messages postés 95 Date d'inscription vendredi 16 janvier 2015 Statut Membre Dernière intervention 8 novembre 2015 - Modifié par LANGAZOU le 27/02/2015 à 11:20
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 27 févr. 2015 à 11:56
Bonjour,

J'ai un textbox dans lequel je tape uniquement des dates. y 'a t-il un moyen par exemple si je tape 27022015 il met automatiquement le sympbole slash "/" 27/02/2015.

Merci pour votre aide.

1 réponse

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
27 févr. 2015 à 11:42
Bonjour,

Ajout de "/" au fur et à mesure de la saisie:
Sources

Private Sub TextBox1_Change()
'http://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-E
	Dim Valeur As Byte
	TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
	Valeur = Len(TextBox1)
	If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub


'Ensuite pour vérifier que c'est bien une date qui a été saisie
Private Sub CommandButton1_Click()
'http://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-E
    If Not IsDate(TextBox1) Then
        MsgBox "Format incorrect"
        TextBox1 = ""
        Exit Sub
        Else
        MsgBox "Format correct"
        '...la suite de la procédure
    End If
End Sub


1
LANGAZOU Messages postés 95 Date d'inscription vendredi 16 janvier 2015 Statut Membre Dernière intervention 8 novembre 2015
27 févr. 2015 à 11:55
Merci beaucoup cher pikaju.

Bonne journée
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712 > LANGAZOU Messages postés 95 Date d'inscription vendredi 16 janvier 2015 Statut Membre Dernière intervention 8 novembre 2015
27 févr. 2015 à 11:56
De rien.
Bonne journée à toi également
0