Code vba format telephone

Résolu
jc80 -  
Bonjour,

Pouvez-vous svp me dire quel code je dois mettre dans une texbox pour
obtenir un format n° de téléphone.
Merci pour votre aide
Cordialement

3 réponses

  1. Kuartz
    Bonjour,

    Inspire toi de ce code : 

    TextBox1.Text = Format(Cellule.value, "0# ## ## ## ##")


    Cordialement.
    1. jc80 Auteur
      Bonjour
      Merci pour ta réponse
      Cela ne fonctionne pas il y a un bug sur la première ligne ci-dessous
      Code que j'ai mis dans la textbox
      Private Sub T_numerodetelephone_Change()
      T_numerodetelephone.Text = Format(T_numerodetelephone.Value, "0# ## ## ## ##")
      End Sub
      Cordialement
      1. jc80 Auteur
        La réponse ci-dessous
        cela fonctionne
        Private Sub T_numerodetelephone_Change()
        Dim Texte As String
        Texte = T_numerodetelephone.Text
        Select Case Len(Texte)
        Case 2, 5, 8, 11
        Texte = Texte & "/"
        End Select
        T_numerodetelephone.Text = Texte

        End Sub
        Cordialement