format date dans un textbox

bonjour à tous:D, je cherche à obliger un format date dans un textbox, de type jj/mm/aaaa,
j'ai donc vu la doc sur le site, mais cela ne marche pas et je ne vois pas pourquoi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub TextBox1_Change() 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() 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

---

c'est la partie en gras qui doit comporter une erreur,
alors si qq'un a une idée:bug:

bonjour,

dans l'aide j'ai trouvé ça:

Code:

---

MyStr = Format(5, "0.00%") ' Renvoie "500,00%"

---

à voir pour une adaptation...

Code:

---

mystrg= format (textbox1, "/")

---

sinon peut être ça ( vu en faisant un enregistrement de macro):

Code:

---

Selection.NumberFormat = "dd/mm/yy;@"

---

mais veut tu que le format dd/mm/aaaa soit visible dans ta textbox ou dans la cellule dans laquelle elle va être inscrite?
parce que sinon tu peux forcer la cellule et pis voilà... pour ça vois avec le dernier bout de code

oui ça doit apparaitre dans la cellule, donc je dois définir la cellule comme étant une date, mais le problème c'est qu'il n'y a pas le format jj/mm/aaaa (il y a par contre jj/mm/aa ...)

donc je ne vois pas comment faire:bug:

Bonjour tlm,

J'ai essayé ton code ci-dessous

Code:

---

1 2 3 4 5

Private Sub TextBox1_Change() Dim Valeur As Byte Valeur = Len(TextBox1) If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/" End Sub

---

il fonctionne sans problème.

Cette ligne

Code:

---

TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox

---

n'est pas nécessaire dans ton code, tu peux fixer la longueur max directement dans les propriétés de ta TextBox

effectivement j'ai réessayé et ça marche, donc merci ça marche nickel
par contre pour le commandbutton1, je ne vois pas bien à quoi ça sert donc je l'ai enlevé

et maxlength est paramétrable, donc pas besoin de formule:king:

merci:yaisse2:

Bonjour,

Jette un oeil ici

Cordialement,

Tirex28/