Code vba format telephone

Résolu
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -  
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Pouvez-vous svp me dire quel code je dois mettre dans une texbox pour
obtenir un format n° de téléphone.
Merci pour votre aide
Cordialement



3 réponses

jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
La réponse ci-dessous
cela fonctionne
Private Sub T_numerodetelephone_Change()
Dim Texte As String
Texte = T_numerodetelephone.Text
Select Case Len(Texte)
Case 2, 5, 8, 11
Texte = Texte & "/"
End Select
T_numerodetelephone.Text = Texte

End Sub
Cordialement
0
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Bonjour,

Inspire toi de ce code :

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


Cordialement.
-1
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
Bonjour
Merci pour ta réponse
Cela ne fonctionne pas il y a un bug sur la première ligne ci-dessous
Code que j'ai mis dans la textbox
Private Sub T_numerodetelephone_Change()
T_numerodetelephone.Text = Format(T_numerodetelephone.Value, "0# ## ## ## ##")
End Sub
Cordialement
-1