Code vba format telephone

Résolu/Fermé
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 1 juil. 2015 à 09:26
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 1 juil. 2015 à 11:36
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



A voir également:

3 réponses

Réponse 1 / 3
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 425
1 juil. 2015 à 11:36
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
Réponse 2 / 3
Kuartz Messages postés 852 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
Modifié par Kuartz le 1/07/2015 à 09:44
Bonjour,

Inspire toi de ce code : 

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


Cordialement.
-1
Réponse 3 / 3
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 425
1 juil. 2015 à 10:46
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