date dans textbox

Bonjour,

Je n'ai pas trouver sur le forum de réponse à ma question ce qui m'étonne tellement elle semble basique...

Je souhaite dans un userform, insérer une textbox. celle-ci permettra à l'utilisateur de renseigner un date.
Comment faire un masque de saisir "dd/mm/yyyy"...
J'ai essayé avec ca

Code:

---

1 2 3 4 5 6

Private Sub Date_Single_Change()   Date_Single.Value = Format(Date_Single.Value, "dd/mm/yyyy")     End Sub

---

mais si je rentre par exemple 5, il me mets automatiquement 04/01/1900... ensuite impossible de faire backspace, il me change l'année...

Je suis débutant donc j'imagine qu'il doit y avoir une méthode miracle !

MErci de votre aide soit avec des pistes soit avec un lien d'une conversation qui aurait déjà traité le sujet avec brio !

slt
j'ai mal lu ton message, le code que tu as entré:

Code:

---

1 2 3 4

Private Sub TextBox1_Change() TextBox1.Value = Format(TextBox1.Value, "dd-mm-yyyy") End Sub

---

formate la textbox afin d'afficher la date sous le format dd/mm/yyyy, ce qui implique de saisir cette date de la même manière.

bonjour manime rvtoulon le forum tu peus essaye un truc comme cela dans proprietes de la textbox Maxlength =10
puis code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Dim Chge As Boolean 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

---

apres il faut affiner par exemple avec le code de rvtoulon en le mettant dans un bouton de validation mais bon sans plus d'infos pas simple!!!

ps rvtoulon pourquoi tu enleves ton code ???

en complement on peut aussi ajouter un code dans ce style

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If Not TextBox1 Like "##/##/####" Then MsgBox "entrez au format jj/mm/aaaa" TextBox1 = "": Cancel = True End If End Sub

---

Merci pour vos réponses, je vais essayer avec ca !!!
a+

Bonjour,

La meilleure solution, à mon avis, que l'on puisse donné à ce problème est d'insérer un calendrier de telles sortes que l'utilisateur choisis sa date dans ce dit calendrier. une fois le choix fait, la date s'affiche dans la textbox.

De cette manière on évite les erreurs et on réduit les lignes de codes.

Cdt

Salut, voir http://excel.developpez.com/faq/?pag...nstallMSCOMCT2