bonjour !
j'ai une longue liste de n° de tél. qui ont été rentrés sous cette forme
:01,22,33,44,55,donc en texte
je voudrai supprimer les virgules
remplacer() ne marche pas
existe-t-il une autre formule
ou peut-on modifier ce code qui efface bien les virgules, mais ne garde pas
la modif précedente en mémoire
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Bonjour, voila ce que rend l'enregistreur de macros si les N° sont en colonne A plus des doubles points et 1 espace à la place des virgules sur toute la colonne Youky
Sub Macro1() Columns("A:A").Select Selection.NumberFormat = "@" Selection.Replace What:=",", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse Selection.Replace What:=":", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse End Sub
"gamma60" a écrit dans le message de news:
bonjour ! j'ai une longue liste de n° de tél. qui ont été rentrés sous cette forme :01,22,33,44,55,donc en texte je voudrai supprimer les virgules remplacer() ne marche pas existe-t-il une autre formule ou peut-on modifier ce code qui efface bien les virgules, mais ne garde pas
Bonjour,
voila ce que rend l'enregistreur de macros si les N° sont en colonne A
plus des doubles points et 1 espace à la place des virgules sur toute la
colonne
Youky
Sub Macro1()
Columns("A:A").Select
Selection.NumberFormat = "@"
Selection.Replace What:=",", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
Selection.Replace What:=":", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse
End Sub
"gamma60" <gamma60@.free.fr> a écrit dans le message de news:
eFsOED9fFHA.1284@TK2MSFTNGP14.phx.gbl...
bonjour !
j'ai une longue liste de n° de tél. qui ont été rentrés sous cette forme
:01,22,33,44,55,donc en texte
je voudrai supprimer les virgules
remplacer() ne marche pas
existe-t-il une autre formule
ou peut-on modifier ce code qui efface bien les virgules, mais ne garde
pas
Bonjour, voila ce que rend l'enregistreur de macros si les N° sont en colonne A plus des doubles points et 1 espace à la place des virgules sur toute la colonne Youky
Sub Macro1() Columns("A:A").Select Selection.NumberFormat = "@" Selection.Replace What:=",", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse Selection.Replace What:=":", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:úlse End Sub
"gamma60" a écrit dans le message de news:
bonjour ! j'ai une longue liste de n° de tél. qui ont été rentrés sous cette forme :01,22,33,44,55,donc en texte je voudrai supprimer les virgules remplacer() ne marche pas existe-t-il une autre formule ou peut-on modifier ce code qui efface bien les virgules, mais ne garde pas
Sub remplaceVirgule() Selection = Replace(ActiveCell, ",", "") Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"gamma60" a écrit dans le message de news:
bonjour ! j'ai une longue liste de n° de tél. qui ont été rentrés sous cette forme :01,22,33,44,55,donc en texte je voudrai supprimer les virgules remplacer() ne marche pas existe-t-il une autre formule ou peut-on modifier ce code qui efface bien les virgules, mais ne garde pas la modif précedente en mémoire
Sub remplaceVirgule()
Selection = Replace(ActiveCell, ",", "")
Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"gamma60" <gamma60@.free.fr> a écrit dans le message de news:
eFsOED9fFHA.1284@TK2MSFTNGP14.phx.gbl...
bonjour !
j'ai une longue liste de n° de tél. qui ont été rentrés sous cette forme
:01,22,33,44,55,donc en texte
je voudrai supprimer les virgules
remplacer() ne marche pas
existe-t-il une autre formule
ou peut-on modifier ce code qui efface bien les virgules, mais ne garde
pas la modif précedente en mémoire
Sub remplaceVirgule() Selection = Replace(ActiveCell, ",", "") Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"gamma60" a écrit dans le message de news:
bonjour ! j'ai une longue liste de n° de tél. qui ont été rentrés sous cette forme :01,22,33,44,55,donc en texte je voudrai supprimer les virgules remplacer() ne marche pas existe-t-il une autre formule ou peut-on modifier ce code qui efface bien les virgules, mais ne garde pas la modif précedente en mémoire
magnifique ! deux questions de plus ,que signifie le format @ ? et # est-il utilisé autrement dans VBA ? encore merci à tous les deux
-- gamma60
In news:%, Jean-François Aubert <à typed:
salut gamma60
Sub remplaceVirgule() Selection = Replace(ActiveCell, ",", "") Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" End Sub
"gamma60" a écrit dans le message de news:
bonjour ! j'ai une longue liste de n° de tél. qui ont été rentrés sous cette forme
01,22,33,44,55,donc en texte je voudrai supprimer les virgules
remplacer() ne marche pas existe-t-il une autre formule ou peut-on modifier ce code qui efface bien les virgules, mais ne garde pas la modif précedente en mémoire
magnifique !
deux questions de plus ,que signifie le format @ ?
et # est-il utilisé autrement dans VBA ?
encore merci à tous les deux
--
gamma60
In news:%23wc1lU9fFHA.2644@TK2MSFTNGP09.phx.gbl,
Jean-François Aubert <àOterjfaubert@bluewin.ch> typed:
salut gamma60
Sub remplaceVirgule()
Selection = Replace(ActiveCell, ",", "")
Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
End Sub
"gamma60" <gamma60@.free.fr> a écrit dans le message de news:
eFsOED9fFHA.1284@TK2MSFTNGP14.phx.gbl...
bonjour !
j'ai une longue liste de n° de tél. qui ont été rentrés sous cette
forme
01,22,33,44,55,donc en texte
je voudrai supprimer les virgules
remplacer() ne marche pas
existe-t-il une autre formule
ou peut-on modifier ce code qui efface bien les virgules, mais ne
garde pas la modif précedente en mémoire
magnifique ! deux questions de plus ,que signifie le format @ ? et # est-il utilisé autrement dans VBA ? encore merci à tous les deux
-- gamma60
In news:%, Jean-François Aubert <à typed:
salut gamma60
Sub remplaceVirgule() Selection = Replace(ActiveCell, ",", "") Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" End Sub
"gamma60" a écrit dans le message de news:
bonjour ! j'ai une longue liste de n° de tél. qui ont été rentrés sous cette forme
01,22,33,44,55,donc en texte je voudrai supprimer les virgules
remplacer() ne marche pas existe-t-il une autre formule ou peut-on modifier ce code qui efface bien les virgules, mais ne garde pas la modif précedente en mémoire
