Ver originales (Francés)

Código VBA para formatear números de teléfono

Resuelto
jc80 -  
Bonjour,

¿Puede decirme, por favor, qué código debo poner en un cuadro de texto para
obtener un formato de número de teléfono?
Gracias por su ayuda
Atentamente

Configuración: Windows 7 / Firefox 38.0

3 respuestas

  1. Kuartz
    Bonjour,

    Inspírate en este código: 

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


    Saludos.
    1. jc80 Autor
      Hola
      Gracias por tu respuesta
      No funciona, hay un error en la primera línea a continuación
      Código que he puesto en el cuadro de texto
      Private Sub T_numerodetelephone_Change()
      T_numerodetelephone.Text = Format(T_numerodetelephone.Value, "0# ## ## ## ##")
      End Sub
      Atentamente
      1. jc80 Autor
        La respuesta a continuación
        eso funciona
        Private Sub T_numerodetelephone_Change()
        Dim Texto As String
        Texto = T_numerodetelephone.Text
        Select Case Len(Texto)
        Case 2, 5, 8, 11
        Texto = Texto & "/"
        End Select
        T_numerodetelephone.Text = Texto

        End Sub
        Atentamente