Format sur TextBox

[Renaud]

Bonjour, (Promis, après j'arrête ... j'espère)
Est il possible de "créer" un genre de "masque de saisie" pour un textbox, sans que le curseur aille à la fin du masque quand il a le focus ?
Je m'explique, si je mets un format de style [textbox.value=format(textbox.value,"0#"" ""##"" ""##"" ""##"" ""##") le textbox affiche 00 00 00 00, et le curseur se positionne après le dernier 0. J'aimerai si c'est possible que éventuellemnt rien ne s'affiche dans la TB, mais aussi qu'à la fin ou pendant la saisie les espaces soient respectés.
Idem pour une TB avec la date, et une TB avec écrit le sigle € à la fin.
Est ce du domaine du possible?
Merci d'avance.
Renaud

 

[Stéphane]

bonjour


ceci va-t-il ?
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "##"" ""##"" ""##"" ""##"" ""##")
If Len(Application.Substitute(TextBox1.Text, " ", "")) = 9 Then _
TextBox1.Text = "" & Chr(48) & "" & TextBox1.Value
End Sub

bye
stéphane

 

[Renaud]

Bonjour et merci.
C'est nickel, si ce n'est que la boite réagit lentement après la saisie du dernier chiffre. Mais bon, le résultat obtenu est celui que je désespérais d'atteindre.
Merci encore.
Renaud

 

[Stéphane]

bonjour

je pense qu'en allant sur le forum microsoft excel, certains de nos Xl amis pourront te fournir un truc encore meilleur.

bye
stephane