Format TextBox

[Gix]

Bonjour à tous, et à toutes,

J'ai récupérer un code sur ce Forum qui permet de saisir des Numéros de téléphones dans un TextBox

Private Sub TextBox7_Change()
Dim Texte As String

With Me.TextBox7
TextBox7.MaxLength = 14
Texte = .Text
Select Case Len(Texte)
Case 2, 5, 8, 11, 14
Texte = Texte & " "
End Select
.Text = Texte
End With

End Sub

Peut-on modifier celui-ci pour saisir format #### #### #### # ?
Vous remerçiant par avance de votre aide.
A+ Gix.

 

[Bebere]

Re : Format TextBox

bonjour Gix
essaye ce qui suit
Private Sub TextBox7_Change()
Dim Texte As String

With Me.TextBox7
TextBox7.MaxLength = 16
Texte = .Text
Select Case Len(Texte)
Case 4, 9, 14
Texte = Texte & " "
End Select
.Text = Texte
End With

End Sub

à bientôt

 

[Gix]

Re : Format TextBox

Re,
Merci Bebere ça marche nickel
Merci et bonne soirée
A + Gix