Macro numéro de téléphone ?

Bonsoir,

J'ai trouvé sur le net une macro pour la séparation des caractères des numéros de téléphone :

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

Elle fonctionne super bien, sauf si je souhaite supprimer des caractères dans le COMBOX.... Une fois que le numéro s'affiche (dans ce cas 03 12 34 56 78, j’arrive supprimer le 78, mais pas le 56 du fait de l'espace. Par contre si je sélectionne tout le texte, alors la j’arrive supprimer....

Une idée du problème ?

Fab.

Bonsoir

Formates ton nombre lorsque tu quittes le TextBox

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1 = Format(Val(Me.TextBox1), "##"" ""##"" ""##"" ""##"" ""##")
End Sub

Bonsoir,

Le soucis c'est que je n'ai pas forcement 10 numéros (5 groupes de 2) a l'intérieur. Je peux en avoir plus, ou moins.

Comment faire dans ce cas ?

Bonsoir Fabdu57100, Banzai64

en mettant tout le code dans le même événement

    Private Sub tbTEL_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        Dim Texte As String
         Texte = tbTEL.Text
         Select Case Len(Texte)
           Case 2, 5, 8, 11, 14, 17
             Texte = Texte & " "
         End Select
         tbTEL.Text = Texte

         If InStr("0123456789", Chr(KeyAscii)) = 0 Then
             KeyAscii = 0
             tbTEL.ControlTipText = "Uniquement des chiffres, svp !"
         End If
    End Sub

Bonsoir,

Impec ! Ca fonctionne super bien.

Comme quoi fallait pas faire grand chose en fin de compte mdr.

Merci pour l'aide,

Fab