Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Format de téléphone dans une zone de texte

Format de téléphone dans une zone de texte

1 réponse
Avatar
SylvieB
Bonjour,

Private sub TextBox1_Change()
TextBox1.Value =3D Format(TextBox1.Value, "=20
0#"" ""##"" ""##"" ""##"" ""##")
End sub

Ce code permet, lors de la saisie d'un num=E9ro de=20
t=E9l=E9phone dans un textbox, un affichage par groupe de=20
deux chiffres.

Certes, cela fonctionne. Mais, 5 groupes de deux z=E9ros=20
s'affichent d=E8s la saisie du premier chiffre.

Existe-t-il une solution pour qu'un espace s'ins=E8re=20
seulement apr=E8s la saisie d'un groupe de deux chiffres ?

Merci d'avance, SylvieB
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Private Sub TextBox1_Change()
If Len(TextBox1.Value) = 10 Then
TextBox1.Value = Format(TextBox1.Value, "00"" ""00"" ""00"" ""00"" ""00")
Else: Exit Sub
End If
End Sub

Ou sinon mettre ton code initial plutôt dans l'évènement AfterUpdate:
Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Format(TextBox1.Value, "00"" ""00"" ""00"" ""00"" ""00")
End Sub

Cordialement
Pascal

"SylvieB" a écrit dans le message de
news:294a01c4707e$ca678a70$
Bonjour,

Private sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "
0#"" ""##"" ""##"" ""##"" ""##")
End sub

Ce code permet, lors de la saisie d'un numéro de
téléphone dans un textbox, un affichage par groupe de
deux chiffres.

Certes, cela fonctionne. Mais, 5 groupes de deux zéros
s'affichent dès la saisie du premier chiffre.

Existe-t-il une solution pour qu'un espace s'insère
seulement après la saisie d'un groupe de deux chiffres ?

Merci d'avance, SylvieB