nombre 10 chiffres afficher avec séparateur ds Usf

[Tigrette121]

Bonjour,

J,ai le code suivant dans une UserForm

Private Sub TextBox14_Change()
[S65536].Select
Selection.End(xlUp)(2).Select
ActiveCell.Offset(0, -2) = UserForm1.TextBox14
End Sub

dans cette boîte j'entre un nombre de 10 chiffres et je voudrais que les séparateurs se mettent tout seul entre les chiffres pour faire ceci

514-555-1235

je suis capable de faire la formule (si je travail juste dans une feuille) mais comment l'intégrer dans le userform.


Si 'Q5' est mon nombre de 10 chiffres, ceci me donne le résultat que je veux.
=CONCATENER(GAUCHE(Q5;3);' - ';GAUCHE(DROITE(Q5;7);3);' - ';DROITE(Q5;4)


Merci pour vos suggestions

 

[Marc_du_78]

Bonjour Tigrette121,
As tu essayé format ###-###-####

 

[Marc_du_78]

re, je voulais dire :
TextBox11 = Format(TextBox1, '###-###-####')
Bon Week end

 

[Tigrette121]

Bonjour,

Non je n'ai pas essayé, où je dois l'ajouter...

Merci

 

[Marc_du_78]

re,
Lorsque tu active ton usf. Mais tu sais je ne suis qu'un débutant, je te dis ceci par rapport à une demande que j'avais faite pour formater en deux groupes de 4 chiffres séparés par un espace.

 

[Tigrette121]

C'est presque parfait...

Lorsque j'entre dans la boîte, l'ordi me mets --
j'entre mes 10 chiffres, rien ne se passe. Si je vais effacer un ou les 2 -, mon numéro s'affiche comme je le veux.

merci

 

[Marc_du_78]

re,
Je viens de trouver ça dans la rubrique recherche :

format téléphone dans textbox - 06/03/2006 23:17

Lien supprimé

comme ça ça doit logiquement aller

TextBox7 = Format(TextBox7, '00 00 00 00 00')

Merci beaucoup cela marche

 

[Tigrette121]

Merci Marc

J'ai décidé de le laisser avec des espaces à la place de -. C'est déjà beaucoup mieux comme ça.
Visuellement on voit que c'est un numéro de téléphone même si on est habitué de voir des tirets.

Merci beaucoup

 

[Marc_du_78]

Je pense que tu peux l'écrire comme suit :

TextBox1 = Format(TextBox7, '000 000 0000')

Bon courage

 

[Tigrette121]

Les 2 façons fonctionnent si je ne mets pas les tirets.

C'est assez pour aujourd'hui, je vais me coucher.

Et encore merci

 

[Marc_du_78]

re,
Fais un essai avec :
TextBox7 = Format(TextBox7, '00 '-' 00 '-' 00 '-' 00 '-' 00')

 

[JYLL]

Bonjour Marc_du_78 et tigrette121,

Excel a un format pour mettre en forme les numéros téléphoniques il se trouve dans 'format' ' 'Spécial' et si tu enregistres une macro en automatique il te donne le format suivant;

Selection.NumberFormat = '0#'' ''##'' ''##'' ''##'' ''##'

en ajoutant le zéro devant tout seul.

Bon test
Amicalement

jean-Yves