Virgule point

[enzo]

bonjour a tous

voici un petit bleme sur lequel je casse les dents depuis quelques jours

un colonne de chiffres (voir fichier joint) dont certains sont avec 3 chiffres apres le point.

je veux par le petit code joint, remplacer les point par des virgules

jusque là ps trop dur!!! mais quand il y a 3 chiffres apres la virgule, le remplacement fait sauter le point mais ne met pas la virgule.

genant quand on veux additionner.

merci a vous tous [file name=PROBVIRG.zip size=49547]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PROBVIRG.zip[/file]

 

[val]

salut,

ca aussi, j'ai cherche!!
tu selectionne toutes tes donnees, puis dans le menu,
tu fais 'rechercher' et tu tape . sur la ligne rechercher et , sur la ligne remplacer. ok et ca marche!
bonne chance
val

 

[enzo]

salut val

oui je sais ca marche 'en manuel'!!!!

mais il me le faut en auto

merci a toi

 

[Tibo]

Salut Enzo,

Je suis plutôt formuliste et mon niveau en VBA est proche du néant.

Mais si tu passes par l'enregistreur de amcros en faisant la démarche indiquée par Val, tu devrais obtenir une macro à adapter si nécessaire.


@+

 

[enzo]

Salut Tibo, le forum

oui j'ai fait comme ca mais meme resultat

merci a toi

 

[Ti_]

une simple formule en colonne B :

=CNUM(SUBSTITUE(A4;'.';','))

et toutes tes valeurs sont converties automatiquement

 

[enzo]

bonjour Ti_, le forum

merci pour cette formule

si je ne peux faire autrement, je ferai ca mais attendu que je devrai repeter cette action plusieurs fois par mois et tous les mois, j'aurais preferé dans une macro.

enfin!!!! :S

merci a toi

 

[Ti_]

dans ce cas, tu peux utiliser cette macro :

Option Explicit

Sub conso()
Dim Plage As Range, Cel As Range
With Feuil1
Set Plage = .Range('A1', .Range('A65536').End(xlUp))
For Each Cel In Plage
Cel = Val(Cel)
Next Cel
End With
End Sub

 

[enzo]

re le fil, le forum, Ti_

merci je vais essayer ca!

pour ne pas mourir idiot, et quand tu auras le temps, peux tu m'expliquer ce que fait : Cel = Val(Cel)

merci beaucoup

 

[Ti_]

encore plus simple :

Sub conso()
Dim Plage As Range, Tabl
With Feuil1
Set Plage = .Range('A1', .Range('A65536').End(xlUp))
Tabl = Plage.Value
Plage.Value = Tabl
End With
End Sub

 

[Ti_]

Val(Cel) convertit une valeur textuelle en sa valeur numérique, et comme Val ne reconnaît que le point comme séparateur décimal, ça tombe bien.

En utilisant un tableau, c'est encore plus simple comme je le pensais, c'est Excel qui fait le boulot à notre place !

 

[enzo]

moi tout compris

en plus j'ai essayé puis adapté, ca marche nickel

merci be&ucoup