remplacer un point

[phil59110]

bonsoir a tout le forum!!!

voila j'ai des chiffres que j'importe par une requéte web et qui s'affiche
par exemple comme ça: 195.5 et je voudrais remplacer ce chiffre en 195,5
en faite remplacer le . par une ,!

merci beaucoup!!

 

[kllmoon]

Re : remplacer un point

Private Sub test()
Range("A1:B4").Replace What:=".", Replacement:=",", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Change ton range pour ce que tu veux.

 

[kllmoon]

Re : remplacer un point

P.S. l'enregistreur de macro est ton ami 😉

 

[phil59110]

Re : remplacer un point

P.S. l'enregistreur de macro est ton ami 😉

bonsoir Kllmoon!!

et je te remerci de me repondre! et c'est sur qu'avec un code ça va tout seule le seule hic c'est que je doit faire cette convertion sur 27 chiffres
et sur 3 pages d'ifferente donc est ce qu'il serais pas mieu d'utilisé une formule

merci beaucoup!!!

 

[hoerwind]

Re : remplacer un point

Bonjour,

Sélectionner la plage à modifier.
Menu Edition - Remplacer
Rechercher : .
Remplacer par : ,
Remplacer tout

 

[kllmoon]

Re : remplacer un point

Insère cette formule dans un bouton ou à la sélection de la page où encore suite à ta macro d'importation. Avec VBA les solutions sont illimitées

 

[phil59110]

Re : remplacer un point

re bonsoir a tous!!
je vous est joint un petit fichier avec un exemple parce que je croi que j'ai
mal formuler ma demande

merci beaucoup

 

[hoerwind]

Re : remplacer un point

Re,

A essayer :
C4 : =SI(E4="";"";--SUBSTITUE(E4;".";","))

 

[phil59110]

Re : remplacer un point

Re,

A essayer :
C4 : =SI(E4="";"";--SUBSTITUE(E4;".";","))

je test ça et je te dit quoi
merci Hoerwind!!

 

[phil59110]

Re : remplacer un point

ça fonctionne impec Hoerwind!!

merci beaucoup !!!

bonne soirée a toi et a tout le forum!!!