Discussion :

[akmer]

Bonjour,
J'ai un textbox et je voudrais qu'il y est un masque de saisie qui par exemple ne permettent de saisire que la date comme sa:12032008 mais qu'elle apparaisse comme sa dans la textbox:12/03/2008
Merci de votre aide.

[zandru]

Bonjour,
il te suffit de retraiter ce qui à été rentré dans ton textbox dès que cela à été rentré.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Value = Left(TextBox1.Value, 2) & "/" & Mid(TextBox1.Value, 3, 2) & "/" & Right(TextBox1.Value, 4)
End Sub

Pas testé, donc à comfirmer

EDIT : Tu peux aussi faire la même chose dans un textbox_change

[akmer]

enfaite je me suis mal exprimé,
Je souhaite que __/__/_____ apparaisse dans la textbox et que je n'est qu'a saisir la date comme ceci:12032008 et la date apparaitra come sa:12/03/2008, les chiffres remplace les _.
Est-ce possible?

[tirex28]

Bonjour,

Essaye ceci

Cordialement,

Tirex28/

[akmer]

J'ai déjà vu ce topic, mais il est assez complexe et je ne suis que débutant

[tirex28]

Bonjour,

La complexité n'est qu'apparente, tu peux utiliser le module sans chercher à comprendre son fonctionnement.

- Telecharge la demo
- Exporte le module sur ton disque (VBE Menu Fichier>Exporter)
- Importe le dans ton classeur (VBE Menu Fichier>Importer)
- Dans ton formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim MonChampDate As DateBox         'Déclaration
Private Sub UserForm_Initialize()
    Set MonChampDate = New DateBox  'Initialisation
    With MonChampDate
        .Initialize TextBox1        'Le nom de ton TextBox
        .Separator = "/"            'Les paramètres qui t'interessent
        .Order = dbxDayMonthYear
    End With
    '...
End Sub
 
Private Sub btnOK_Click()
    MsgBox MonChampDate.Value   'Renvoie une date si le champ est renseigné,
                                'une erreur sinon.
End Sub

N'hesite pas à demander si nécessaire.

Tirex28/