View original (French)

VBA code for formatting phone numbers

Solved
jc80 -  
Hello,

Could you please tell me what code I need to put in a textbox to
get a phone number format?
Thank you for your help
Best regards

Configuration: Windows 7 / Firefox 38.0

3 answers

  1.  jc80 Author
    The response below
    it works
    Private Sub T_numerodetelephone_Change()
    Dim Text As String
    Text = T_numerodetelephone.Text
    Select Case Len(Text)
    Case 2, 5, 8, 11
    Text = Text & "/"
    End Select
    T_numerodetelephone.Text = Text

    End Sub
    Best regards
    1. Kuartz
      Hello,

      Take inspiration from this code: 

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


      Best regards.
      1. jc80 Author
        Hello
        Thank you for your response
        It's not working, there's a bug on the first line below
        Code that I put in the textbox
        Private Sub T_numerodetelephone_Change()
        T_numerodetelephone.Text = Format(T_numerodetelephone.Value, "0# ## ## ## ##")
        End Sub
        Best regards