format de numéro de téléphone.

Bonsoir,

Pour la saisie d’un numéro de téléphone dans un userform j’ai trouvé sur ce forum une procédure qui fonctionne:

Private Sub TextBox1_Change()
Dim Texte As String
Texte = TextBox1.Text
Select Case Len(Texte)
Case 2, 5, 8, 11
Texte = Texte & "-"
End Select
TextBox1.Text = Texte
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
TextBox1.ControlTipText = "Uniquement des chiffres, svp !"
End If
End Sub

Pour compléter cette procédure, j’aimerai limiter à 10 le nombre de chiffre saisis.

Pouvez-vous m’aider

Merci d’avance

CAR.51