[vba] remplacer virgule par point

Résolu/Fermé

tompols Messages postés 1273 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:

Vba remplacer virgule par point
Remplacer disque dur par ssd - Guide
Remplacer par word - Guide
Google sheet remplacer point par virgule - Forum Google Docs
Point de suite word - Guide
Point de restauration - Guide

3 réponses

Réponse 1 / 3

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
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+

Chris
22 avril 2008 à 11:27

Je ne comprend pas ta solution, et j'ai exactement le même probleme que toi. Peux tu expliquer ton code stp.?

Pierre C
22 janv. 2012 à 03:27

Excellente solution!

tsouintsouin
Modifié par tsouintsouin le 22/05/2012 à 10:48

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

Réponse 2 / 3

whisk
8 mars 2009 à 06:33

bonjour

bien sont code est tres simple et astucieu mais cependant vous devez connaitre le vba un peut par excel pour vous en servir, il doit etre inclue dans le vba dans (thisworkbook)

Private Sub Workbook_Open()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = " "
.UseSystemSeparators = False
End With
end sub

et a l'ouverture le systeme décimal par defaut en avec des , est convertie totalement en .

bonne solution je trouve

Evalf
6 déc. 2011 à 16:38

bonjour,

J'ai des macro liés les une aux autre pour du traitement de données, travaillant dans une grosse entreprise je dois imperativement gérer toutes les erreurs possibles sur mes macros. et, mon souci est que certains pc seront configuré pour être en décimale à "," et d'autre en "." car tous le monde ne gère pas les mêmes essais.

Mon soucis est donc que si pour X ou Y raisons ce n'est pas une personne "habituelle" qui gère mon banc d'essai, ils peuvent trouver des problemes à cause de ca.

Ma question, "Est-il possible de forcer l'importation d'un fichier .txt en mode "." quelques soient la config de base d'excel ? j'ai essayé votre macro que je trouve très rapide est ingénieuse mais à priori il n'est pas capable de forcer les "." en import.

Discussions similaires

Excel : Changer un point en virgule

[excel] remplacer tous ls pts par des virgule

Format de nombre Excel point / virgule

convertir le point en virgule sur Excel 2007

Le point à la place de la virgule

remplacement point par virgule avec VBA