Nombre de caractères Mini et Maxi dans une TextBox

[degap05]

Bonjour,
Je connais la propriété de limitation du nombre maximum de caractères saisis dans une TextBox:

Private Sub UserForm_Initialize()
'limite le nombre de caractères saisis
TextBox3.MaxLength = 10
End Sub

Je souhaiterais que la saisie soit obligatoirement de 10 caractères, ni plus ni moins (jj/mm/aaaa) et uniquement ce format de date.

Voir la TextBox "DLU" de l'Userform.

Merci.

 

[abc]

Re : Nombre de caractères Mini et Maxi dans une TextBox

Bonjour,
j'ai utilisé <> 10,plutot que = 10
If Len(Feuille.B_Crédit.Text) <> 12 Then
MsgBox "10 CHIFFRES" & Chr(10) & "RECOMMENCER"
Exit Sub
A +

 

[degap05]

Re : Nombre de caractères Mini et Maxi dans une TextBox

Bonjour, merci abc,

Je vais essayer d'adapter.

Merci.

 

[degap05]

Re : Nombre de caractères Mini et Maxi dans une TextBox

Bonjour,

Si vous avez une autre solution ?🙂

Merci.

 

[pierrejean]

Re : Nombre de caractères Mini et Maxi dans une TextBox

Bonjour a tous

A tester:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then Exit Sub
If Len(TextBox1) <> 10 Or Not IsDate(TextBox1) Then MsgBox "Saisie erronée": TextBox1 = "": Cancel = True
End Sub

 

[degap05]

Re : Nombre de caractères Mini et Maxi dans une TextBox

Bonjour,

Merci PierreJean,

Je testerai le 02/09/2008 (vacances), mais il n'y a pas de raison que cela ne fonctionne pas.

Merci🙂

 

[tototiti2008]

Re : Nombre de caractères Mini et Maxi dans une TextBox

Bonjour à tous,

peut être

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then Exit Sub
If not TextBox1.text like "##/##/####" Then MsgBox "Saisie erronée": TextBox1 = "": Cancel = True
End Sub

 

[pierrejean]

Re : Nombre de caractères Mini et Maxi dans une TextBox

Re

@ tototiti

avec 99/99/9999 la saisie serait acceptée
par ailleurs les / sont en insertion automatique a la 2eme et 5eme place

 

[degap05]

Re : Nombre de caractères Mini et Maxi dans une TextBox

Bonjour à tous , bonjour Pierrejean,

Ta solution fonctionne parfaitement🙂🙂

Merci à tous.