Transformer les virgules en points

Version imprimable

18/03/2017, 12h16
jujudeo

Transformer les virgules en points
Bonjour a tous,

j'ai un petit soucis au niveau de ma macro, j'aimerais automatiser le passage de la virgule en point c'est a dire que j'aimerais passer de 1373913,255 a 1373913.255 sauf que je n'y arrive pas et je trouve pas mon erreur !! voici mon code :
Code:

1 2 3 4 5 Sub TEST() ActiveSheet.Columns("J:M").Replace _ What:=",", Replacement:=".", _ SearchOrder:=xlByColumns, MatchCase:=True End Sub
Peut-être que cette transformation est un cas particulier et nécessite une autre fonction ?

Merci d'avance !

Julien
18/03/2017, 12h29
kiki29

Salut, de multiples posts sur cette question : une recherche t'apportera la réponse
18/03/2017, 15h47
jujudeo

Oui j'ai cherché avant de vous ecrire au moins 4/5 post ! mais a chaque fois les solution ne donne rien quand je lance la macro sur mon fichier .csv !! j'ai essayer avec 4 techniques différentes rien y fait...
18/03/2017, 15h56
Docmarti

Bonjour.

2 solutions dans cette discussion

Merci beaucoup !! j'ai utilisé la deuxième et cela marche très bien !!!

Code:

1
2
3
4
5
6
7
8
9
Sub Convertion()
Dim myRange As Range
Dim Cell As Range
Set myRange = ActiveSheet.Range("A1:AI400")
myRange.NumberFormat = "@"
For Each Cell In myRange
    Cell.Value = Replace(Cell.Value, ",", ".")
Next Cell
End Sub

Que donne le test suivant ?

Code:

1
2
3
4
5
6
7
8
9
10
Sub test()
 
Set Rng = Range("J1:M100")
Rng.NumberFormat = "@"
Rng.Select 'commande inutile. Peut etre supprimee
For Each Cell In Rng
    Cell.Value = Replace(Cell.Value, ",", ".")
Next
 
End Sub

18/03/2017, 16h54
jujudeo

excuser moi, j'ai modifier mon message du dessus j'ai fais exactement comme vous avec un peu plus de ligne ! merci beaucoup de votre patience et gentillesse ! :P:P

cela marche sauf qu'il me faut 3 chiffres après la virgule et en mettant au format texte les "," sont bien transformées en "." mais les 0 de la fin des nombres sautent...:?:?
Code:

1 2 3 4 5 6 7 8 9 10 Sub Convertion() Dim myRange As Range Dim Cell As Range Range("J1:M400").NumberFormat = "0.000" Set myRange = ActiveSheet.Range("J1:S400") myRange.NumberFormat = "@" For Each Cell In myRange Cell.Value = Replace(Cell.Value, ",", ".") Next Cell End Sub
Avez vous une technique pour remédier a cela ? car pour le coup je ne vois absolument pas

18/03/2017, 19h20
Philippe Tulliez

Bonjour,
Tu formates les cellules de la plage de cellules J1:M400 avec 3 chiffres après la virgule et ensuite tu formates les cellules J1:S400 au format texte donc tu supprimes le format précédent.

J'avoue ne pas comprendre ce que tu cherches à faire.
As-tu un Windows anglais qui t'oblige à remplacer les "," en point "." ?
Dans les versions française le séparateur des milliers est un point et le séparateur décimal est une virgule.
18/03/2017, 20h23
jujudeo

je vous explique, je veux transformer les , en . car ce sont des coordonnées GPS en cc44 que je veux intégrer dans un logiciel de SIG. Pour integrer Les normes sont d'avoir 3 chiffres apres la virgule sur des coordonnées cartésiennes.. d'où je fait que j'essaye de mettre en format 0.000 et en "."

Tu peux utiliser la propriete TEXT obtenue par NumberFormat = "0.000" et Columns.AutoFit
Code:

1 2 3 4 5 6 7 8 9 Set MyRange = Range("A1:A7") MyRange.NumberFormat = "0.000" MyRange.Columns.AutoFit For Each cell In MyRange a = cell.Text cell.NumberFormat = "@" cell.Value = Replace(a, ",", ".") Next

Énorme sa marche niquel ! J'ai adapté a mon cas, mais est il possible d'optimiser l'écriture ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Convertion1()
Dim myRange As Range
Dim Cell As Range
Set myRange = Range("J2:M500")
myRange.NumberFormat = "0.000"
myRange.Columns.AutoFit
 For Each Cell In myRange
 a = Cell.Text
 Cell.NumberFormat = "@"
 Cell.Value = Replace(a, ",", ".")
Next Cell
 
Set myRange = Range("N2:N500")
myRange.NumberFormat = "0.00"
myRange.Columns.AutoFit
 For Each Cell In myRange
 a = Cell.Text
 Cell.NumberFormat = "@"
 Cell.Value = Replace(a, ",", ".")
Next Cell
 
Set myRange = Range("P2:R500")
myRange.NumberFormat = "0.000"
myRange.Columns.AutoFit
 For Each Cell In myRange
 a = Cell.Text
 Cell.NumberFormat = "@"
 Cell.Value = Replace(a, ",", ".")
Next Cell
 
Set myRange = Range("S2:S500")
myRange.NumberFormat = "0.00"
myRange.Columns.AutoFit
 For Each Cell In myRange
 a = Cell.Text
 Cell.NumberFormat = "@"
 Cell.Value = Replace(a, ",", ".")
Next Cell
End Sub

Merci beaucoup vraiment a tous les intervenants, c'est vraiment gentil !!!

19/03/2017, 14h22
Docmarti
Tu pourrais obtenir un gain de temps significatif en utilisant une variable tableau afin de remplacer les 36000 ecritures
Code:

1 2 Cell.NumberFormat = "@" Cell.Value = Replace(a, ",", ".")
par une seule ecriture :
Code:

1 2 3 myrange.NumberFormat = "@" s = Application.Substitute(s, ",", ".") myrange.FormulaLocal = s
19/03/2017, 19h20
jujudeo

oula euh d'accord mais du coup je ne vois pas comment gérer les multiples 0.00 et 0.000... désoler je suis encore novice :/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Convertion()
Set myrange = Range("A1:B7")
Call TraiteMyRange(myrange)
End Sub
 
Sub TraiteMyRange(myrange)
myrange.NumberFormat = "0.000"
myrange.Columns.AutoFit
 
ReDim s(1 To myrange.Rows.Count, 1 To myrange.Columns.Count)
 
 For i = 1 To myrange.Rows.Count
 For j = 1 To myrange.Columns.Count
  'Mettre les valeurs de la propriete TEXT dans le tableau s
  s(i, j) = myrange(i, j).Text
 Next
 Next
 s = Application.Substitute(s, ",", ".")
 
 myrange.NumberFormat = "@"
 myrange.FormulaLocal = s
 
End Sub

20/03/2017, 08h07
jujudeo

Hum d'accord je vais essayer sa alors.... en tout cas un grand merci !

Adapte a ton cas, voici une facon de faire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Convertion3()
 
Dim myRange As Range
Dim MyFormat As String
 
MyFormat = "0.000"
Set myRange = Range("J2:M500")
Call TraiteMyRange(myRange, MyFormat)
 
MyFormat = "0.00"
Set myRange = Range("N2:N500")
Call TraiteMyRange(myRange, MyFormat)
 
End Sub
 
Sub TraiteMyRange(myRange, NbFormat)
 
myRange.NumberFormat = NbFormat
myRange.Columns.AutoFit
 
ReDim s(1 To myRange.Rows.Count, 1 To myRange.Columns.Count)
 
 For i = 1 To myRange.Rows.Count
 For j = 1 To myRange.Columns.Count
 
  s(i, j) = myRange(i, j).Text
 
 Next
 Next
 s = Application.Substitute(s, ",", ".")
 
 myRange.NumberFormat = "@"
 myRange.FormulaLocal = s
 
End Sub

20/03/2017, 22h45
jujudeo

D'accord mais je spécifie ou les lettres des colonnes ?

Eh bien, dans les differents Set myRange de la premiere procedure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Convertion3()
 
Dim myRange As Range
Dim MyFormat As String
 
MyFormat = "0.000"
Set myRange = Range("J2:M500")
Call TraiteMyRange(myRange, MyFormat)
 
MyFormat = "0.00"
Set myRange = Range("N2:N500")
Call TraiteMyRange(myRange, MyFormat)
 
End Sub