Transformer les virgules en points

**jujudeo** · 18/03/2017, 12h16

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**kiki29** · 18/03/2017, 12h29

Salut, de multiples posts sur cette question : une recherche t'apportera la réponse

**jujudeo** · 18/03/2017, 15h47

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...

**Docmarti** · 18/03/2017, 15h56

Bonjour.

2 solutions dans cette discussion

**jujudeo** · 18/03/2017, 16h14

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Docmarti** · 18/03/2017, 16h51

Que donne le test suivant ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**jujudeo** · 18/03/2017, 16h54

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 !

**jujudeo** · 18/03/2017, 17h16

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Philippe Tulliez** · 18/03/2017, 19h20

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.

**jujudeo** · 18/03/2017, 20h23

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 "."

**Docmarti** · 19/03/2017, 03h04

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**jujudeo** · 19/03/2017, 08h20

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

**Docmarti** · 19/03/2017, 14h22

Tu pourrais obtenir un gain de temps significatif en utilisant une variable tableau afin de remplacer les 36000 ecritures

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Cell.NumberFormat = "@"
Cell.Value = Replace(a, ",", ".")

par une seule ecriture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
myrange.NumberFormat = "@"
s = Application.Substitute(s, ",", ".")
myrange.FormulaLocal = s

**jujudeo** · 19/03/2017, 19h20

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

**Docmarti** · 19/03/2017, 20h04

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**jujudeo** · 20/03/2017, 08h07

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

**Docmarti** · 20/03/2017, 21h43

Adapte a ton cas, voici une facon de faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**jujudeo** · 20/03/2017, 22h45

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

**Docmarti** · 20/03/2017, 23h56

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Transformer les virgules en points

Macros et VBA Excel

Discussions similaires

Partager

Partager