Macro rechercher/remplacer

[elly95693]

Bonjour,

Quand je fais mon extraction de données, mes données arrivent sous la forme 456,9 et il me les faut sous la forme 456.9
Alors j'ai fait une macro mais elle ne fonctionne pas, pourriez-vous m'aidez ? Le remplacement doit être effectué à partir de la ligne 9 (et toutes les lignes suivantes) sur toutes les colonnes.

Merci d'avance !

Sub Macro1()

    Rows("9:65000").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[Pierrot93]

Re : Macro rechercher/remplacer

Bonjour,

essaye la conversion de données => données => convertir, sur la colonne en question, l'enregistreur de macro te donnera le code...

bonne journée
@+

 

[elly95693]

Re : Macro rechercher/remplacer

Oui mais en faisant cela, je n'ai plus mes décimales dans mes données...

 

[Pierrot93]

Re : Macro rechercher/remplacer

Re,

essaye ceci, exemple pour la colonne A :

Columns(1).TextToColumns Destination:=Range("A1"), DecimalSeparator:=","