Macro remplacer

[Mariesurexcel]

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]

Re : Macro remplacer

Bonjour,

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

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

bonne journée
@+

 

[ralph45]

Re : Macro remplacer

Bonjour mariesurexcel, Pierrot93

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

    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]

Re : Macro remplacer

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