Ver originales (Francés)

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

Resuelto
jc80 Mensajes publicados 5063 Fecha de registro   Estado Miembro Última intervención   -  
jc80 Mensajes publicados 5063 Fecha de registro   Estado Miembro Última intervención   -
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 Mensajes publicados 5063 Fecha de registro   Estado Miembro Última intervención   1 443
     
    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
    0
  2. Kuartz Mensajes publicados 852 Fecha de registro   Estado Miembro Última intervención   65
     
    Bonjour,

    Inspírate en este código: 

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


    Saludos.
    -1
  3. jc80 Mensajes publicados 5063 Fecha de registro   Estado Miembro Última intervención   1 443
     
    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