Code vba format telephone
Résolu/Fermé
jc80
Messages postés
4149
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 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 1 juil. 2015 à 11:36
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 1 juil. 2015 à 11:36
A voir également:
- Excel vba format textbox phone number
- Liste déroulante excel - Guide
- Telecharger format factory - Télécharger - Conversion & Codecs
- Formule excel - Guide
- Format apfs - Guide
- Si et excel - Guide
3 réponses
jc80
Messages postés
4149
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 422
1 juil. 2015 à 11:36
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
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
Kuartz
Messages postés
850
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
Modifié par Kuartz le 1/07/2015 à 09:44
Bonjour,
Inspire toi de ce code :
Cordialement.
Inspire toi de ce code :
TextBox1.Text = Format(Cellule.value, "0# ## ## ## ##")
Cordialement.
jc80
Messages postés
4149
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 422
1 juil. 2015 à 10:46
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
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