Discussion :

[chloe2]

Apres extraction j'obtiens des chiffres avec un . ex: 8459652.236512
Je veut remplacer ce point par une virgule et obtenir 8459652,236512
J'enregistre une macro en faisant edition/remplacer

Code :

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

1
2
3
.Columns("K:Q").Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Ca marche au moment de l'enregistrement mais en la relancant sur une nouvelle feuille ca me donne des nombres multipliés, sur certaines lignes, par 100 ou 1000!
Chercher l'erreur?!

[ouskel'n'or]

Eh oui !
Remplace le point par un point (non par une virgule) et tu verras
Ensuite raconte-nous

[chloe2]

si je fais ca je ne change rien
et je reviens aux pb initial qui ma poussé à vouloir mettre des virgules à savoir que

Code :

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

1
2
3
For i = 225 To 5 Step -1
'    If .Range("C" & i).Value = "Alpha" Then .Range("P" & i).Value = .Range("P" & i).Value * 0.2
    Next i

me donne une erreur d'incompatibilité pourtant javais pensé à convertir ma colonne P

Code :

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

1
2
3
4
 .Columns("K:Q").Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    .Range("P5:P225").TextToColumns Destination:=.Range("P5")

[ouskel'n'or]

Ok. Sans tes données ça va être difficult
Essaie déjà de supprimer tous les espaces qui peuvent être des faux espaces de milliers (code ascii 255) A tout hasard...
Mais laisse bien le remplacement des points par des points.
Tu dis

[chloe2]

Voilà mon fichier avec le code! et toujours la meme erreur!

[ouskel'n'or]

Ok. Alors j'ai trouvé : Commence par remplacer les points par des points puis les bons points par des virgules.
Testé chez moi ça gaze !
J'avais encore jamais vu
Bonne soirée