Macro pour remplacer des . par des ,

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
m
marsupilami
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 29 mars 2019
Version d'Excel : 2016 FR

Message par marsupilami » 17 mai 2019, 16:12

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
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 17 mai 2019, 19:16

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
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
g
gyrus
Membre fidèle
Membre fidèle
Messages : 311
Appréciations reçues : 43
Inscrit le : 8 avril 2019
Version d'Excel : 2013 FR

Message par gyrus » 17 mai 2019, 23:53

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.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message