bonjour a vous tous,

malgre de nombreuses recherches dans google, je n'arrive pas a formater mes texbox pour les numeros de telephone.

je voudrais quils affichent dans le texbox sous la forme 00 00 00 00 00 que ce soit lors de la saisie ou de l'affichage

j'ai essaye ceci :

Private Sub TextBox5_Change()

TextBox5 = Format(TextBox5, "00 00 00 00 00")

End Sub

et ceci :

Private Sub TextBox5_Change()

Dim Texte As String

With Me.TextBox5

Texte = .Text

Select Case Len(Texte)

Case 2, 5, 8, 11, 14

Texte = Texte & " "

End Select

.Text = Texte

End With

End Sub

sans succès.

en vous remerciant

Bonjour Jean,

Essaie un peu ceci. Dans Excel ça fonctionne en tout cas

Private Sub TextBox1_LostFocus()
TextBox1 = Format(TextBox1, "00 00 00 00")
End Sub

bonjour robert,

heureux de te renconter mais je n'y arrive cependant toujours pas.

voici le lien pour le fichier:

http://cjoint.com/?3IolG1K5Emv

en te remerciant

je viens de trouver ceci, mais comment l'adapter ?

Private Sub tbTEL_Change()

Dim Texte As String

Texte = tbTEL.Text

Select Case Len(Texte)

Case 2, 5, 8, 11

Texte = Texte & " "

End Select

tbTEL.Text = Texte

End Sub

Private Sub tbTEL_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If InStr("0123456789", Chr(KeyAscii)) = 0 Then

KeyAscii = 0

tbTEL.ControlTipText = "Uniquement des chiffres, svp !"

End If

End Sub

Bonjour l'ami

exemple pour la textbox5

Private Sub TextBox5_Change()

Select Case Len(TextBox5.Value)

Case 2, 5, 8, 11

TextBox5.Value = TextBox5.Value & " "

End Select

' TextBox5 = Format(TextBox5, "00 00 00 00 00")

End Sub

bonjour Gilbert et merci a toi, mais dans le texbox ca affiche toujours 000000000 et non 00 00 00 00 00

voilà un test

http://cjoint.com/?BIoqPSJHb4Y

verifier le resultat

http://cjoint.com/?BIoqWfEAHtm

oui, c'est tout bon

merci gilbert c'est super

je te souhaite une excellente soirée

Bonjour à tous,

Je pense qu'il faut rajouter la ligne :

TextBox5.MaxLength = 14

Comme cela :

Private Sub TextBox5_Change()
TextBox5.MaxLength = 14
Select Case Len(TextBox5.Value)
Case 2, 5, 8, 11
TextBox5.Value = TextBox5.Value & " "
End Select
End Sub

Cela permet de mettre juste les 10 chiffres.

A+