Code vba format telephone

Résolu
jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   -  
jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   -
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. jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   1 443
     
    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
    0
  2. Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   65
     
    Bonjour,

    Inspire toi de ce code :

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


    Cordialement.
    -1
  3. jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   1 443
     
    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