Remplacer . par ,

[mobbydik]

bjr,

J'ai écrit une macro pour remplacer automatiquement le séparateur "." dans une palge de cellules contenant des chiffres par un séparateur ",". Or quand je lance la macro, dans certaines cellules, au lieu de me remplacer le point, il me le supprime, et ne met rien à la place.
Pour bien me faire comprendre, si la cellule contient par exemple "60.214", la macro va transformer cette cellule en "60214" au lieu de "60,214".
Ce qui est bizarre, c'est que cela ne se produit que dans certaines cellule.
La commande utilisée dans la macro est la suivante:

Selection.NumberFormat = "0.0000"
Selection.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False

Merci à ceux qui me fourniront la réponse à mom pb

Mobbydik

 

[zape]

laisse tomber la macro
teste:
c7=> 100,1
c8=> CNUM(SUBSTITUE(CONCATENER(C7);",";"."))
c8=> 100.1