Calibrage TextBox

[degap05]

Bonjour,

J'impose un Max de caractères par:

TextBox1.MaxLength = 9

Je souhaite également que le Min soit = 9, quelle serait la syntaxe ?

Merci.

 

[mromain]

Re : Calibrage TextBox

bonjour degap

une solution serait d'empêcher de sortir de la box.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) <> 9 Then
    Cancel = True
End If
End Sub

par exemple


a+

 

[degap05]

Re : Calibrage TextBox

Merci mromain,

je préfèrerais que cela soit dans :

Private Sub UserForm_Initialize() ,

comme actuellement:

TextBox1.MaxLength = 9

As-tu une solution ?

 

[mromain]

Re : Calibrage TextBox

re,

perso, je ne pense pas que ce soit possible (je n'en suis pas sur) car il faudrait que la TextBox ait une propriété du genre MinLength...

mais le forum te donnera surement d'autres solutions...

a+

 

[degap05]

Re : Calibrage TextBox

C'est à cela que je pensais, mais je suis en train de mettre en place ta solution.

Merci.

A+

 

[degap05]

Re : Calibrage TextBox

Bonjour, mromain,

Ta solution fonctionne.

Merci.