Macro remplacer

Mariesurexcel · 19 Mars 2012

Bonjour à tous!

Je reviens avec une nouvelle question.

J'ai besoin d'enregistrer une macro. A priori tout fonctionne correctement sauf la partie Ctrl+H. Je veux remplacer les points par des virgules puis mettre les cellules en format nombre.

Je vous joint un fichier pour que vous voyiez un peu mieux. Le fichier est en 2003 mais j'ai bien besoin de la solution pour du 2010.

Merci d'avance pour votre aide!
Bonne journée!

Marie

Pierrot93 · 19 Mars 2012

Re : Macro remplacer

Bonjour,

essaye peut être la conversion de données, pour la colonne B :

Code:

Columns(2).TextToColumns Destination:=Range("B1"), DecimalSeparator:="."

bonne journée
@+

ralph45 · 19 Mars 2012

Re : Macro remplacer

Bonjour mariesurexcel, Pierrot93

Peut-être ce code à ajouter en fin de ta macro ?

Code:

    Columns("B:C").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "0.00"
    Range("B1").Select

A plus !

Mariesurexcel · 19 Mars 2012

Re : Macro remplacer

Je ne peux vérifier si ça marche pour l'instant mais je ne vous oublie pas.
Merci Pierrot et Ralph!

Macro remplacer

Mariesurexcel

XLDnaute Nouveau

Pièces jointes

Pierrot93

XLDnaute Barbatruc

ralph45

XLDnaute Impliqué

Mariesurexcel

XLDnaute Nouveau

Discussions similaires