Format sur TextBox

  • Initiateur de la discussion Renaud
  • Date de début
R

Renaud

Guest
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
 
S

Stéphane

Guest
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
 
R

Renaud

Guest
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
 

Discussions similaires

Réponses
15
Affichages
425