changer format numéros de téléphone

S

sigma

XLDnaute Occasionnel

• 25 Août 2005

• #2

Estelle, le forum,

regarde dans ton format de cellule, dans la catégorie spécial il y a plusieurs format pour les N° de téléphone en fonction des pays, peut être es tu sur un pays fonctionnant sur 0 320 # # # ?

si ton problème persiste glisse nous ton fichier avec des N° bidons et l'un d'entre nous trouvera la solution à ton petit souci du jour.

A+

 

Vote positif 0 Vote négatif

E

Estelle

Guest

• 25 Août 2005

• #3

Bonjour Michael,

j'ai d'abord essayer de mettre mes cellules en format téléphone, puis comme cela n'a pas changé le format, j'ai choisi le format 'personalisé' ( 0# ## ## ## ##), mais rien n'y fait !

d'après ce que j'ai pu lire sur le forum, cela viendrait de l'apostrophe devant chaque 0 (ce sont des numéros que j'ai importés).

voici un exemple en pièce jointe de quelques numéros.

Estelle

[file name=pbtel.zip size=1878]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pbtel.zip[/file]

 

Pièces jointes

• pbtel.zip

  1.8 KB · Affichages: 43

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Août 2005

• #4

Bonjour

Ote les guillemets dans ton format personnalisé
''0 ### ### ###'

pour avoir cela
0 ### ### ###

Message édité par: staple1600, à: 25/08/2005 09:59

Message édité par: staple1600, à: 25/08/2005 10:00

 

Vote positif 0 Vote négatif

E

Estelle

Guest

• 25 Août 2005

• #5

Bonjour Staple1600,

j'ai fait ce que tu m'as dit, mais ça n'a pas changé les formats des numéros de téléphone qui étaient ainsi : 0 810 ## ## ##. J'ai l'impression que l'apostrophe devant le 0 'fige' le format.

En effet, dans format de cellule , personnalisé, j'ai oté les guillement de la formule puis cliqué sur OK. Ne voyant pas de changements, j'ai re-vérifié le format de la cellule et il n'avait pas enregistré le changement !

Curieux, non ? :S

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Août 2005

• #6

Chez moi ca fonctionne

mais je saisi les chiffres sans espaces et sans apostrophes et le format est:0 ### ### ### (sans apostrophe ni guillemet)



Reste à trouver comment oter le guillemet sur tout le classeur

Message édité par: staple1600, à: 25/08/2005 10:13

 

Vote positif 0 Vote négatif

E

Estelle

Guest

• 25 Août 2005

• #7

désolée... mais je n'y arrive pas.

en fait, il faudrait que je supprime l'apostrophe pour pouvoir appliquer la formule 0# ## ## ## ## . le hic c'est que ces numéros de téléphone, on été importés et que l'apostrophe s'est mis tout seul lors de l'importation.

Et quand je fais remplacer, excel ne le trouve pas... et même en faisant la formule que vous m'avez proposée, l'apostrophe reste (j'ai même essayé de faire copier/collage spécial/valeur), elle est tjrs là !

j'ai joint quelques numéros dans le fichier zip dans le 2ème message que j'ai posté si tu veux bien y jeter un coup d'oeil.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Août 2005

• #8

Désolé

j'avais interprété le problème à l'envers

Alors voilà une autre solution

Format personnalisé:
00.00.00.00.00

Mais il faut saisir les numéros de tel sans le zéro du début



Une formule pour le faire
=DROITE(A1;NBCAR(A1)-1)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Août 2005

• #9

Je résume

Effectivement ni la formule ni Remplacer ne voit l'apostrophe

Pour l'instant je ne vois pas comment l'oter (en VBA je suppose)

Pour le reste, la solution alternative
Aprés importation
dans une colonne adjacente des numéros de tel
on supprime le zéro (=Droite(.... voir post précédent)
On sélectionne la colonne (avec formule)
puis Copier - Collage Spécial Valeurs
puis format personnalisé: 00.00.00.00.00

 

Vote positif 0 Vote négatif

E

Estelle

Guest

• 25 Août 2005

• #10

La formule =DROITE(A1;NBCAR(A1)-1) semble avoir oter l'apostrophe maudite en même temps que le 0 (cf. fichier joint).

j'ai alors appliqué le format personnalisé 00.00.00.00.00 sur la colonne collage spéciale. mais là, ça n'a pas marché... le format reste tout de même inchangé.

any idea ?

[file name=pbtelsuite.zip size=2125]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pbtelsuite.zip[/file]

 

Pièces jointes

• pbtelsuite.zip

  2.1 KB · Affichages: 36

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Août 2005

• #11

Il faut supprimer les espaces dans les numéros de tel

et ne pas saisir le éro du début

ainsi:
01 02 03 04 05 doit se saisir
102030405

et avec le format:00.00.00.00.00

cela affiche
01.02.03.04.05

 

Vote positif 0 Vote négatif

S

sigma

XLDnaute Occasionnel

• 25 Août 2005

• #12

re,

Estelle, dans ton fichier tu n'es pas en 00.00.00.00.00 mais en 00\\.00\\.00\\.00.

change ton format en 00.00.00.00.00 et cela fonctionne

A+

 

Vote positif 0 Vote négatif

E

Ermite

Guest

• 25 Août 2005

• #13

Bonjour,

Supprime d'abord les espaces par un remplacer 'espace' par rien.
Ensuite sélectionne ta colonne. Menu Données/Convertir. Prendre séparateur 'Autre' en indiquant l'apostrophe comme séparateur. Applique ensuite le format téléphone.
Avant de faire convertir, assure-toi que la colonne de droite est vide.

Bye.

 

Vote positif 0 Vote négatif

S

sigma

XLDnaute Occasionnel

• 25 Août 2005

• #14

re,

cela ne se voit pas lorsque je l'écris mais tu as des anti slash dans ton format personnalisé.

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Août 2005

• #15

Voici un code VBA pour supprimer les espaces

et voici comment je procéderai:
1) importation
2) suppression Espaces
3)formule(DROITE(....
4)Copier/Coller Valeurs (et ce dans la même colonne, cad
sélection N°Tel et coller sur eux-même en choisissant Valeurs)
5)Selection de la colonne contenant les N°Tel
6)Applique le format: 00.00.00.00.00


Ci-dessous le code VBA (faire ALT+F11, Insertion/Module, Coller ce code, ensuite pour l'appliquer sélection des cellules, puis Outils/Macros/ et choisir RemoveAllSpaces)

Sub RemoveAllSpaces()
'David McRitchie 2000-10-24
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Selection.SpecialCells(xlConstants).Replace What:=Chr(160), _
Replacement:='', _
LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True
Selection.SpecialCells(xlConstants).Replace What:=Chr(32), _
Replacement:='', _
LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif