Modifier le format d'une cellule VBA

Bonjour, le Forum

C'était trop beau pou que ça fonctionne ...

Dans un UserForm j'ai un bout de code ou je saisi un numéro de Tél (Vert) et j'ai voulu ajouter un argument (Rouge) de façon à ce que quand je saisie : 014243.... on affiche 01 42 43 (position dans toutes les Cellules en colonne F).

Ca marche pas et en plus Excel Mouline sur la Macro et je suis obliger de fermer le classeur

' On teste la saisie de Tel

With Me.Tel

If Not IsNumeric(Me.Tel.Text) And Me.Tel.Text <> "" Then

MsgBox "Vous devez saisir un numéro de Téléphone !"

Me.Tel.Text = ""

Me.Tel.SetFocus

Exit Sub

End If

For Each cell In Range("F:F")

cell.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"

Next cell

Exit Sub

Ici

Je place mes valeurs peut-être y-a-t-il une possibilité d'y placer directement le format ?

j'ai essayé des (Val(Replace( mais j'ai pas la bonne syntaxe

' Mise en place des valeurs saisies

Range("A65536").End(xlUp).Offset(1, 0).Value = Nom

Range("B65536").End(xlUp).Offset(1, 0).Value = Adresse

Range("C65536").End(xlUp).Offset(1, 0).Value = CodeP

Range("D65536").End(xlUp).Offset(1, 0).Value = Ville

Range("E65536").End(xlUp).Offset(1, 0).Value = Pays

[color=blue] Range("F65536").End(xlUp).Offset(1, 0).Value = Tel

Range("G65536").End(xlUp).Offset(1, 0).Value = Fax

Range("H65536").End(xlUp).Offset(1, 0).Value = Mail

Range("I65536").End(xlUp).Offset(1, 0).Value = Coment

Bonne Journèe au Forum !

Bonsoir Forum,

Les leçons de Mytå portent leurs fruits.... Une p'tite Macro rafraîchit et hop c'est simple mais ça marche !

Un exemple pour le

' Format cellule Fax

Columns("G:G").Select ' On change bien sur les valeurs de la colonne

Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"

et le petit CDec(Text) qui va bien dans le Range value. 8)

Suivez l'enregistreur de Macro

A+

Finalement C'est pas Fiable.

Voir Solution sur le Forum https://www.excel-pratique.com/forum/viewtopic.php?t=2072