changer format numéros de téléphone

[Estelle]

Bonjour tout le monde !

depuis hier je cherche à homogénéiser les fomats des numéros de téléphone de ma base de données pour qu'ils soient : 03 20 ## ## ## mais impossible, ils restent ainsi : 0 320 ## ## ##

J'ai regardé dans les archives du forum et essayé les solutions proposées... mais rien n'y fait ! probablement à cause de l'apostrophe qui est devant chaque 0.

Si vous avez une solution à me proposer... elle sera la bienvenue !!!

Merci d'avance pour votre aide !

Estelle

 

[Estelle]

'tu as des anti slash dans ton format personnalisé'



quesako ?

 

[Estelle]

PROBLEME RESOLU !!!!!!!!!!!!

Merci Ermite, j'ai appliqué ce que tu m'as expliqué... et ça marche !!!

je vous remercie tous de m'avoir aidé !!! ça m'a rendu un grand service !

 

[Jouxte]

bonjour le Forum,

Pour supprimer l'aposttophe tu peux utiliser :
=SUBSTITUE(A1;'''

ensuite si tu le veux yu fais un copier coller les valeurs avec le format nombre comme vu plus haut.

Bon courage.

 

[Staple1600]

message édité:

code VBA dans le fil


(pj supprimée)

 

[Jouxte]

Lire

=SUBSTITUE(A1;guillemet apostrophe guillemet point virgule parenthèse

 

[Estelle]

MERCI ! MERCI ! MERCI !

Vous m'enlevez tous une belle épine du pied !!! la macro est géniale !

 

[Staple1600]

Voila ce que donne l'enregistreur de macro
(en suivant la méthode de l'Ermite)
Sub Macro1()
' A adapter, par ex Selction de la colonne active
Range('A1:A13').Select
Selection.Replace What:=' ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.TextToColumns Destination:=Range('B1'), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=''', FieldInfo:=Array(1, 1)
' à adatper également colonne active
Range('B1:B13').Select
Selection.NumberFormat = '0#'' ''##'' ''##'' ''##'' ''##'
End Sub