Remplacement valeur initiale dans zone de texte

[gwendy46]

Bonjour,

Je me demandais s'il été possible pour une zone de texte de mettre comme valeur initiale des tirets, puis au fur et à mesure que l'utilisateur rentre des valeurs, que ces valeurs remplacent automatiquement chaque tiret.

Par exemple J'ai dans ma zone de texte 5 tirets "-----", si l'utilisateur tape un caractère que ca donne ca "7----".

J'ai regardé dans les propriétés de la zone de texte, j'arrive à mettre une valeur de départ dans la zone de texte, mais pas remplacer les caractères un à un.

Je vous remercie

Win XP pro sp 3
Excel 2003

 

[youky(BJ)]

Re : Remplacement valeur initiale dans zone de texte

Bonjour,
voici un code à mettre,
Bruno

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox1) > 5 Then TextBox1 = Left(TextBox1, 5)
TextBox1.Text = Replace(TextBox1.Text, "-", "")
x = Len(TextBox1)
For k = 1 To 5
If Len(TextBox1) <= 4 Then TextBox1 = TextBox1 & "-"
Next
TextBox1.SelStart = x
End Sub

Private Sub UserForm_Activate()
TextBox1 = "-----"
TextBox1.SelStart = 0
End Sub

 

[joss56]

Re : Remplacement valeur initiale dans zone de texte

Bonjour Gwendy, Youky, le forum,

Je crois qu'il est possible d'utiliser le contrôle RefEdit.

Jocelyn

 

[gwendy46]

Re : Remplacement valeur initiale dans zone de texte

Merci beaucoup youki

Ca marche super

A bientôt

 

[joss56]

Re : Remplacement valeur initiale dans zone de texte

mea culpa
RefEdit n'a rien à voir...c'est Masked Edit Control qui va bien
Désolé
Jocelyn

 

[gwendy46]

Re : Remplacement valeur initiale dans zone de texte

Salut joss56,

Merci d'avoir également répondu

Cependant le controle "Masked edit Control" existe t'il dans excel 2003?

Je ne le trouve pas

 

[gwendy46]

Re : Remplacement valeur initiale dans zone de texte

Bonjour à tous,

Par contre je ne sais pas comment on fait pour mettre des tirets pour une date par exemple avec des slashs. ( du style --/--/----)

Est ce quelqu'un aurait une idée?

Merci d'avance

 

[youky(BJ)]

Re : Remplacement valeur initiale dans zone de texte

Désolé de mon retard,
Je mets tout de même mon oeuvre.
textbox avec --/--/----

Bruno