Discussion :

[E. Nigma]

Bonjour à tous,

Tout d'abord avant de poster ce message j'ai cherché, cherché et cherché... Promis ;-) Et pas trouvé la solution.

Voilà mon problème : je saisis dans une base Excel des numéros de téléphone via un userform.
Aucun souci pour les saisir au bon format "01 01 01 01 01" (et là en effet j'ai trouvé plein de forums qui traitent du sujet).
Mais lorsque je veux consulter, via un userform également, les numéros précédemment saisis, ils s'affichent sous la forme "101010101".
Or moi je veux pouvoir les afficher au format "01 01 01 01 01".

Une idée...?

Merci par avance ;-)

[thebigsteph]

Bonjour E. Nigma, le forum

J'avais cherché ça un jour aussi...
Essai n°de tél dans la cellule A1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub UserForm_Initialize()
TextBox1.Value = Cells(1, 1)
TextBox1.Value = Format(TextBox1.Value, "00"" ""00"" ""00"" ""00"" ""00")
End Sub

Bonne journée

TBS

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Initialize()
TextBox1.Value = Cells(1, 1)
TextBox1.Value = Format(TextBox1.Value, "00 00 00 00 00")
End Sub

[E. Nigma]

Bonjour TBS, rdurupt,

Merci pour vos réponses : TBS ça fonctionne nickel, avec juste la petite correction apportée par rdurupt sur les double quotes.

Merci pour votre aide ;-)
Très bonne journée.