Discussion :

[jujudeo]

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]

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

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

[Docmarti]

Bonjour.

2 solutions dans cette discussion

[jujudeo]

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]

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