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. 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. Kuartz
        Bonjour,

        Inspírate en este código: 

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


        Saludos.