Macro pour remplacer des . par des

Bonjour

J'enregistre une macro simple qui remplace les "." par des "," dans une série de colonnes afin de les faire passer du statut de texte à celui de nombre; quand j'exécute la macro ça remplace bien mais le chiffre reste à gauche de la cellule (pas un format nombre)

Quand je fais cela manuellement ça marche pourtant

Any idea ?

Merci

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("F:F").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Bonjour,

Ci-dessous ta macro à tester

Sub Macro1()
   With Columns("F:F")
      .Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByRows
      .NumberFormat = "0.00"
      .HorizontalAlignment = xlRight
    End With
End Sub

En espèrant que cela t'aide

Bonjour marsupilami,

Bonjour James007,

Tu peux essayer l’outil de conversion de données :

Sub Macro1()
    Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
End Sub

Cordialement.