chaine de caractère dans textbox

[fred]

Bonjour,

Dans un textbox, je voudrais saisir une chaine de 5 caractères maximum mais lorsque je saisie que 3 caractères, je voudrais qu'il m'incorpore des zéro devant mes 3 caractères :
exemple : je saisie 181 il m'affiche dans le texbox 00181

Par avance merci pour votre aide.

 

[Eric C]

Bonjour le forum
Bonjour fred


Private Sub TextBox1_Exit (ByVal.......

TextBox1.Value = Format(TextBox1.Value, "00###")

End Sub

@ ++ Eric C

 

[EricS]

bonjour

peut-être

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "00000")
End Sub

Eric

 

[EricS]

Bonjour ERIC C

je ne t'avais pas vu

deux solutions avec autant de différence que nos pseudos!!!!!!!!

Eric S

 

[Eric C]

Re le forum
Re bonjour fred, bonjour mon homonyme

En plus, dans propriétés de ton TextBox, place celle de MaxLength à 5 pour ne pas pouvoir saisir plus de 5 caractères.
@ ++ Eric C

 

[fred]

J'ai essayé la formule :
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "00000")
End Sub

Mais lorsque je saisie par exemple 181, il m'affiche 00001 et impossible de saisir plus de chiffres.

 

[Eric C]

Re le forum
Re bonjour fred, re bonjour Eric$

Saisi le code dans :
Private Sub TextBox1_Exit (ByVal......

et tout ira pour le meilleurs des mondes

@ ++ Eric C

 

[fred]

il me met un message d'erreur dans Private Sub TextBox1_Exit (ByVal......
erreur de compilation (identificateur).
excusez-moi, je suis un novice (formation en cours)
Merci

 

[jmps]

Bonjour Fred, Bonjour les Ericzzzzz,

Essaye ça Fred :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  TextBox1.Value = String(5 - Len(TextBox1.Value), "0") & TextBox1.Value
End Sub

Attention, la propriété Maxlength du textbox doit être à 5 sinon ça bug. On pourrait le contourner mais c'est plus cher lol !

A+

José

 

[fred]

La formule de jmps fonctionne très bien.

Merci pour tout.