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.  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
    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