Remplace . par , et , par rien

Résolu
Signaler
Messages postés
32
Date d'inscription
mardi 27 novembre 2007
Statut
Membre
Dernière intervention
13 novembre 2017
-
Messages postés
32
Date d'inscription
mardi 27 novembre 2007
Statut
Membre
Dernière intervention
13 novembre 2017
-
je voudrais remplacer dans 2 cellules (N2 ET N3) les . par des , et les , par un séparateur milliers
voici mes cellules =:
<colgroup><col style=\"WIDTH: 60pt\" width=\"80\" /></colgroup>----
         438.0000, ----
      84,003.8876

je souhaiterais obtenir:
<colgroup><col style=\"WIDTH: 60pt\" width=\"80\" /></colgroup>----
438,00, ----
84 003,8876

j'ai créé ce code:
If InStr(Range("N2"), ".") Then

Range("N2:N3").Select
selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 Range("N2:N3").Select
selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

Else
MsgBox "Attention Cellules déjà à jour!"

Mais ça ne fonctionne pas voila ce que je reçois:

<colgroup><col style=\"WIDTH: 80pt; mso-width-source: userset; mso-width-alt: 3876\" width=\"106\" /></colgroup>----
4 380 000,00, ----
840 038 876,00

merci d'avance pour votre aide !

2 réponses

Messages postés
1098
Date d'inscription
mercredi 22 mars 2006
Statut
Membre
Dernière intervention
22 octobre 2019
1
Fait comme sa :
Range("N2").Value = replace(Range("N2").Value,","," ")
Range("N2").Value = replace(Range("N2").Value,".",",")

Je viens de faire le test sa fonctionne cher moi (Mais attention dans le cas ou les chiffres apprêt la virgule sont égale à 0 alors Excel te tronque la valeur, tu auras "438" et non "438,00" à moins que tu n'es défini le format de cellule bien sure )

Tu peut même imaginé une procédure qui le fait :
public sub MajCell (byval RangeCellule as string)
   Range(RangeCellule).Value = replace(Range(RangeCellule).Value,","," ")
   Range(RangeCellule ).Value = replace(Range(RangeCellule).Value,".",",")
end sub

Voila bon courage

Amicalement
Pensez "Réponse acceptée"
Messages postés
32
Date d'inscription
mardi 27 novembre 2007
Statut
Membre
Dernière intervention
13 novembre 2017

merci beaucoup