changer format numéros de téléphone

E

Estelle

Guest

• 25 Août 2005

• #16

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



quesako ?

 

Vote positif 0 Vote négatif

E

Estelle

Guest

• 25 Août 2005

• #17

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 !

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 25 Août 2005

• #18

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Août 2005

• #19

message édité:

code VBA dans le fil


(pj supprimée)

 

Dernière édition: 5 Juillet 2008

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 25 Août 2005

• #20

Lire

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

 

Vote positif 0 Vote négatif

E

Estelle

Guest

• 25 Août 2005

• #21

MERCI ! MERCI ! MERCI !

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Août 2005

• #22

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

 

Vote positif 0 Vote négatif