Pb Macro Conversion données.

**george33** · 17/01/2011, 11h06

Bonjour,

Mon problème est le suivant.
J'ai un fichier Excel est je souhaite convertir toutes les cellules, en remplaçant les . par des , (mettre sous forme de nombre) pour faire tourner des calculs.

Cette opération fonction en manuel (transforme 12.500
13.000 13
13.500 = > 13,5
14.000 14

l'enregistreur de macro donne le code suivant pour l'opération.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 Range("A36:A44").Select
  Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

mais quand je compile cette macro sur d'autres cellules la conversion se fait mal et j'obtiens :
13.000 13 000
13.500 = > 13 500
14.000 14 000

Merci pour votre aide !

**mayekeul** · 17/01/2011, 11h22

bonjour,

mais quand je compile cette macro sur d'autres cellules

C'est-à-dire??
comment procède-tu?

**pgz** · 17/01/2011, 11h25

Bonjour.

Cela illustre bien une limite de l'enregistreur de macros. Il y en a d'autres!

Je te propose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Worksheets("NomFeuille").Range("A36:A44").Formula =ThisWorkbook.Worksheets("NomFeuille").Range("A36:A44").Formula

Cordialement,

PGZ

**george33** · 17/01/2011, 11h42

bonjour,

mais quand je compile cette macro sur d'autres cellules

C'est-à-dire??
comment procède-tu?

j'ai placé le code dans une procédure que je lance et ce code produit par l'enregistreur de macro sur une tache donnée (ctrl F remplacer . par , ) ne produit plus le meme resultat quand on l'appelle ..

La solution de mayekeul fonctionne mais si une solution existe pour remplacer tout les éléments contenus dans une feuille par d'autres (pas uniquement . => ,), je suis intéressé !