cells.replace ne marche pas en vba

[sebastien450]

Bonjour,

mon code
Range("D9").Select
Cells.Replace What:=",", Replacement:=".", lookat:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("M11").Select

marche lorsque je fait la manip manuellement, avec enregistreur de macro de macro, mais pas en VBA!!
une idée ?

(je cherche a transformer mes chiffres 1.2 en 1,2 pour pouvoir filtrer derriere par ordre croissant....)

 

[piga25]

Re : cells.replace ne marche pas en vba

Bonjour,

Peut-être comme ceci :
...
Range("D9").select
ActiveCell.Replace What:=".", Replacement:=","
...

 

[sebastien450]

Re : cells.replace ne marche pas en vba

Pas de différences... Meme si je reste sur la cellule concernée!

 

[piga25]

Re : cells.replace ne marche pas en vba

Re,

Voir fichier si cela correspond à la demande

 

[JCGL]

Re : cells.replace ne marche pas en vba

Bonjour à tous,
Re Patrick,

Tu peux aussi utiliser cette syntaxe :

Range("D9:D16").Replace ".", ","

ou

Range("D9:D16").Replace ",", "."

A+ à tous

 

[sebastien450]

Re : cells.replace ne marche pas en vba

Ton classeur marche
le code ne marche pas sur ma feuille!

Et si je copie ma cellule sur ton classeur ca ne marche pas!

feuille PA range A4:A9

 

[sebastien450]

Re : cells.replace ne marche pas en vba

bon j'ai triché en changeant dans option les virgules par des points pour les separateur numerique et avec une modif du format sur certaines cellule je conserve ma mise en forme... Mais ca ne marche pas autrement!