Masque de saisie (date)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 542 fois - Téléchargée 52 fois

Contenu du snippet

Un truc tout simple... peut être ya encore plus simple ? :)
Mettre un textbox dans une form, et rajouter le code sur le textbox

Source / Exemple :


Private Sub Text1_Change()
    Dim tmp As String
    If Len(Text1.Text) = 2 Then
        tmp = Text1.Text & "/"
        Text1.Text = tmp
        Text1.SelStart = 4
    End If
    If Len(Text1.Text) = 5 Then
        tmp = Text1.Text & "/"
        Text1.Text = tmp
        Text1.SelStart = 7
    End If
End Sub

Conclusion :


Rajoute automatiquement les séparateurs pour le formatage d'une date. Ya plus simple ??

A voir également

Ajouter un commentaire

Commentaires

SeeNapse
Messages postés
33
Date d'inscription
vendredi 24 janvier 2003
Statut
Membre
Dernière intervention
18 mai 2004
-
Ton code est super pratique.

Encore merci ;-)
furiouskiki
Messages postés
1
Date d'inscription
jeudi 29 janvier 2004
Statut
Membre
Dernière intervention
4 juin 2004
-
ya un bug une foi ke tu a mi la date en entière tu pe pa l'effacer avec backspace

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.