[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:

Vba remplacer virgule par point
Vba remplacer point par virgule - Meilleures réponses
Macro remplacer point par virgule - Meilleures réponses
[vba] remplacer virgule par point ✓ - Forum - VB / VBA
Convertir virgule en point VBA ✓ - Forum - VB / VBA
Remplacer point par virgule VBA ✓ - Forum - VB / VBA
Remplacement point par virgule avec VBA - Forum - VB / VBA
Remplacer virgule par point excel mac ✓ - Forum - MacOS

3 réponses

Réponse 1 / 3

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+

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

remplacement point par virgule avec VBA

separateur decimal dans Google document

dessin avec parenthèse, point

Discussions similaires

Newsletters