[vba] remplacer virgule par point

Résolu/Fermé
tompols
Messages postés
1219
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
- 7 mars 2005 à 17:52
 tsouintsouin - 22 mai 2012 à 10:44
Bonjour,

Je cherche ds une macro à remplacer les point par des virgules ds une colonne.J'ai enregistré ceci avec l'enrgistreur mais ça ne fonctionne pas en macro (si je fais la même chose en manuel, ça fonctionne !!??) :
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Donneé ds la colonne (stocké au format texte) :
-12746156,51
-871963,12
1425635,89
-183076,84
156546,58
-7551,30
2155561,34
14606,92
396738,21
59918,18
20613,11
-1553
11576
5196290,48
113265,80
5997,50
6403,00

Quelqu'un à une idée ?
Merci
A voir également:

3 réponses

tompols
Messages postés
1219
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
458
7 mars 2005 à 19:36
Ok autant pour moi, j'ai trouvé, j'utilise :
With Application
.DecimalSeparator = "."
.ThousandsSeparator = " "
.UseSystemSeparators = False
End With

Et inversement à la fermeture....

A+
8
Je ne comprend pas ta solution, et j'ai exactement le même probleme que toi. Peux tu expliquer ton code stp.?
0
Excellente solution!
0
Merci pour cette solution très utile !
Si tu mets cette solution dans le sub du programme principal cela n'est utilisé que pour les fonctions et onglets utilisés par ta macro. Donc si tu fais comme moi qui laisse toujours un onglet de données initiales puis crée un onglet de travail, cela ne change pas tes données initiales !
MERCIIIIIII
0