Macro rechercher/remplacer

elly95693 · 6 Mai 2013

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 !

Code:

Sub Macro1()

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

Pierrot93 · 6 Mai 2013

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 · 6 Mai 2013

Re : Macro rechercher/remplacer

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

Pierrot93 · 6 Mai 2013

Re : Macro rechercher/remplacer

Re,

essaye ceci, exemple pour la colonne A :

Code:

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

Macro rechercher/remplacer

elly95693

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

elly95693

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires