Discussion :

[GTbenj]

bonjour à tous, 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 :

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

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

[la belette]

bonjour,

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

Code :

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

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

à voir pour une adaptation...

Code :

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

mystrg= format (textbox1, "/")

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

Code :

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

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

[GTbenj]

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

[fring]

Bonjour tlm,

J'ai essayé ton code ci-dessous

Code :

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

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 :

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

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

[GTbenj]

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

merci

[tirex28]

Bonjour,

Jette un oeil ici

Cordialement,

Tirex28/