High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

[vba] remplacer virgule par point

Dernière réponse le 8 mar 2009 à 06:33:03 tompols, le 7 mar 2005 à 17:52:53 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « [vba] remplacer virgule par point » dans :
Quelques règles typographiques VoirPonctuation : les règles typographiques à respecter Point . Virgule , Point-virgule ; Deux-points : Point d'interrogation ? Point d'exclamation ! Points de suspension ... Parenthèses ( ) Guillemets « » Crochets Tiret long...
Quelques règles typographiques VoirQuelques règles typographiques : Point . Virgule , Point-virgule ; Deux-points : Point d'interrogation ? Point d'exclamation ! Points de suspension ... Parenthèses ( ) Guillemets « » Crochets Tiret long – Astérisque * etc. N°
Exporter à coup sûr du CSV VoirExporter des données au format CSV n'est pas si trivial qu'il n'y paraît. Dès que vos données contiennent des virgules ou des guillemets, tout semble partir en vrille. Il y a une astuce. Voici comment procéder pour exporter à coup sûr vos...
Posez votre question Répondre

1

tompols, le 7 mar 2005 à 19:36:44
  • +1

Ok autant pour moi, j'ai trouvé, j'utilise :
With Application
.DecimalSeparator = "."
.ThousandsSeparator = " "
.UseSystemSeparators = False
End With

Et inversement à la fermeture....

A+

   
Répondre à tompols

2

Chris, le 22 avr 2008 à 11:27:31

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

   
Répondre à Chris

3

un chinois, le 7 jui 2008 à 11:42:52

J'ai aussi le meme problem, vous pouvez le parametrer dans le panneau de configuration, languistique region, personnalise, modifier le sympol decimal en ".", c'est tout.

   
Répondre à un chinois

4

 whisk, le 8 mar 2009 à 06:33:03

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

   
Répondre à whisk
Posez votre question Répondre
Ils ont besoin de votre aide