Remplacer point par virugle
Bonjour
Pour faire ce que je dois faire. Je copie un base de donné qui provient d'un autre logiciel. Et les nombres sont séparé de point au lieu de virgule. Si je fais la manoeuvre manuellement par rechercher et remplacer tout fonctionne. Mais avec la Macro, cela fonctionne aussi, mais la cas n'est plus reconnu comme un nombre. il apparait un point d'exclamation et pour traiter mes données dans les formules suivantes, cela ne fonctionne plus.
Mon fichier est assez gros et je ne peux le joindre. Je vous joins ma mcro que j'ai fait.
Sub remplacerPOINTparVIRGULE()
'
' remplacerPOINTparVIRGULE Macro
' Macro enregistrée le 2010-08-24 par MP
'
'
Sheets("Liste AV").Select
Columns("F:H").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Liste AP").Select
Columns("F:H").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("COMPARAISON").Select
End Sub
Merci de votre aide
Bonsoir
Même si cela parait bizarre remplace le point par un point avec ce code
Sub remplacerPOINTparVIRGULE()
'
' remplacerPOINTparVIRGULE Macro
' Macro enregistrée le 2010-08-24 par MP
Sheets("Liste AV").Select
Columns("F:H").Select
Cells.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Sheets("Liste AP").Select
Columns("F:H").Select
Cells.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Sheets("COMPARAISON").Select
End SubCordialement
Bonjour
Effectivement ca fonctionne à MERVEILLE. Atitre d'information personnelle, est-ce qu'il y a une raison explicable où c'est quelque chose à ne pas comprendre?
Merci de l'aide
Marc
Bonjour
J'ai lu à droite et à gauche que c'était une anomalie VBA.
Apparemment, c'en est une, mais je n'ai pas trouvé l'explication.
Cordialement