Format téléphone pour UserForm

Bonjour toutes et tous,

j'ai trouvé sur ce forum plusieurs solutions mais qui concernent les cellules de la feuille

mon souhait est un format qui doit entrer dans un TextBox de formulaire pour être ensuite affecter à une base de données

Ce code correspond à mon TextBox

Private Sub TBTéléphone_Change()
'format 081/65.59.11
'Format gsm 0474/39.09.38
End Sub

Merci de bien vouloir m'aider encore une fois

amicalement

Pierrot

bonsoir cappe pierre

voici de quoi te contenter a mon avis

 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = Format(Me.TextBox1.Value, "00 00 00 00 00")
End Sub

c'est aussi valable pour portable et fax

Bonsoir, Pascal

merci pour ta réponse, le format ne correspond pas à, ma demande le N° s'affiche 081655911

je souhaite

''format 081/65.59.11

'Format gsm 0474/39.09.38

amitiés

Pierrot

Bonsoir Cappe Pierre,

Private Sub TextBox1_AFTERUPDATE()

TextBox1.Text = Format(TextBox1.Value, "0# ## ## ## ##")

End Sub

Bonne soirée

Salut Pierrot,

petite question, comme ça : tu veux ce format DANS la TextBox LORS de la frappe ou dans une cellule ou Label cible ?

A+

Bonsoir, skydiver

après une légère modification, ta formule fonctionne bien

un grand merci

Pour curulis57, j'entre ce numéro dans un TextBox pour être finalement stocké dans une cellule de la base de données

après validation

Merci à vous deux

Bonne soirée

Amitiés

Pierrot