Formatage numéro de téléphone

Bonjour,

J'ai une table Excel 2003 remplie à partir d'un formulaire en ligne.

Comme données, il y a les numérso de téléphone des personnes qui s'inscrivent. Seulement voila, ceux qui n'ont pas respecté la consigne de mettre un point entre chaque groupe de 2 chiffres font que le zéro de tête est manquant et je me retrouve avec 9 chiffres au lieu de 10...

Il y a 700 lignes de données et j'aimerais bien une astuce pour mettre un "0" en tête des numéros à 9 chiffres.

Qui peut me conseiller?

Merci!

JP

Bonjour,

Tu peux appliquer ce format personnalisé :

00"."00"."00"."00"."00

Ainsi, plus besoin de saisir les points.

@+

Bonjour et bienvenue, bonjour thibo,

Pour les N° de Tel, normalement il n'y a ni "." (point) ni espace

Format de cellule/Nombre/Spécial

sélectionner "Numéro de téléphone"

le zéro se met automatiquement

Voici une macro qui devrait remettre le bon format (dans un module)

plage à régler

Sub FormateTEL()
Dim Cel As Range
Application.ScreenUpdating = False
    For Each Cel In Range("j5:j15")                         'plage à régler
        Cel = Trim(Cel)                                     'supprime les espaces début et fin
        Cel = Application.Substitute(Cel, ".", "")          'supprime les "." (points)
        Cel = Application.Substitute(Cel, " ", "")          'supprime les espaces
        Cel.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" 'formate en N° Tel
    Next Cel
End Sub

Amicalement

Claude

Merci!

Je découvre ce forum grâce à mon p'tit souci et je suis épaté par la réactivité qu'il y a. Super, je le conseillerai

-- 14 Avr 2011, 11:00 --

Merci again Claude, je viens de l'executer et ça fonctionne d'enfer! Ça allait de soi mais c'est encore mieux en le disant!

Hello,

Je me permets de déterrer le topic car je dispose d'une base de numéro de téléphone sans aucun formatage.

J'arrive à la nettoyer avec la macros ci-dessus, sauf pour les numéros étranger (composé de + de 10 caractères)

Ce que je souhaite faire à la ligne 11 : Cel = MsgBox Right(Cel, 9) , c'est de récupérer les 9 derniers chiffres de mes numéros de téléphone, mais ma syntaxe pose problème.

Pouvez-vous m'aider ?

Sub FormateTEL()
Dim Cel As Range
Application.ScreenUpdating = False
    For Each Cel In Range("h2:h1200")
       Cel = Trim(Cel)
       Cel = Application.Substitute(Cel, "+", "")
       Cel = Application.Substitute(Cel, "-", "")
       Cel = Application.Substitute(Cel, "/", "")
       Cel = Application.Substitute(Cel, ".", "")
       Cel = Application.Substitute(Cel, " ", "")
       Cel = MsgBox Right(Cel, 9)
       Cel.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" 'formate en N° Tel
   Next Cel
End Sub

Up du jour,

Vraiment désolé d'insister mais je suis vraiment en galère, j'ai toujours pas trouver comment retourner uniquement les 9 derniers chiffres...