Créer un format N° téléphonne personnalisé

Bonjour à tous

je n'arrive pas à créer un format personnalisé pour mes N° de téléphones

j'entre manuellement dans l'UserForm le format suivant:

081 / 65.59.11

Je souhaiterais taper les chiffres sans tenir compte des barres obliques et des points de séparations

dans le textBox de mon UserForm

J'utilise programme de Ange57, joint ici.

Merci beaucoup de votre aide et bonne journée

Papy Pierrot

textbox1.NumberFormat = "0## " / "##"."##"."##"

Bonjour, EngueEngue

C'est gentil de me répondre si vite,

le code n'accepte pas les points dans la commande

Dans quel code dois-je écrire cette commande ?

Amitiés

Pierrot

Répondu trop vite:

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

Je suis désolé EngueEngue,

dans la base de données Col H, le numéro ne s'affiche pas avec le nouveau format

Peux-tu faire un essai avec le fichier ?

Amitiés

Pierrot

Si tu veux mettre le format dans une colonne c'est différent... Il faut savoir ce que tu veux.

Private Sub CommandButton1_Click()

Dim L As Integer

If MsgBox("Confirmez-vous L’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout ") = vbYes Then
L = Sheets("Clients").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = ComboBox2
Range("C" & L).Value = TextBox1
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox3
Range("F" & L).Value = TextBox4
Range("G" & L).Value = TextBox5
Range("H" & L).Value = Format(TextBox6, "0## ""/""##"".""##"".""##")
Range("I" & L).Value = TextBox7
End If

     Application.Run "'liste client  Ange 57.2.xlsm'!Triage"
End Sub

Merci EngueEngue,

comme ça, c'est parfait

Je croyais que tu avais ouvert le fichier joint

Un tout grand merci et bon après-midi

Amitiés ensoleillées de Belgique

Papy Pierrot