Masque de saisie date dans textbox

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.

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

Code:

---

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

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?

Bonjour,

Essaye ceci

Cordialement,

Tirex28/

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

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:

---

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/