Format téléphone

[ascal44]

Bonsoir,

comment transformer les N° saisie à la suite ( sans espaces dans un textbox au format téléphone ?

Private Sub Textbox2_AfterUpdate()
   " format voulu : 02 40 40 40 40 "
End Sub

Merci pour votre aide

 

[JHA]

Re : Format téléphone

Bonjour Ascal44, le forum,

Je suis nul en macro, mais avec l'enregistreur, ton format est:

Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"

JHA

 

[Compte Supprimé 979]

Re : Format téléphone

Bonsoir,

En utilisant une fonction 😉

Function MeFTel(VTel As String)
  Dim I As Integer, NewVTel As String
  ' Met à plat le numéro sans espace ni point
  VTel = Replace(Replace(VTel, ".", ""), " ", "")
  ' Supprimer les erreurs éventuelles
  On Error Resume Next
  ' Vérifier que le ZERO n'a pas été oublié
  If Len(VTel) = 9 Then VTel = "0" & VTel
  ' Mettre en forme le numéro
  For I = 1 To Len(VTel) Step 2
    NewVTel = NewVTel & Mid(VTel, I, 2) & "."
  Next I
  NewVTel = Left(NewVTel, Len(NewVTel) - 1)
  MeFTel = NewVTel
  ' Remettre les erreurs
  On Error GoTo 0
End Function

+ ce code dans ton TextBox

Private Sub Textbox2_AfterUpdate()
  Me.Textbox2.Value = MeFTel(Me.Textbox2.Value)
End Sub

A+

 

[ascal44]

Re : Format téléphone

Merci pour vos réponses , j'ai opté pour la solution de BRUNOM45 qui fonctionne très bien