Tjours ce point en virgule!!

[Reeaz]

Bonjour à tous!!

Nombre d'entre vous m'ont répondu concernant mon pb de changment de type à savoir changer un point en une virgule. Les proc que vous m'avec envoyées (notamment alian) fonctionnent correctement mais lorsque dans mon fichier, j'ai des nombres à point et d'autres à virgule, il se passe la chose suivant avec la macro que vous m'avez envoyée:

26,950 devient 26 (ca pose pb)
25.593 devient 25,593 ( c'est bon)

La macro que j'utilise est :

Sub Remplacement_Point()

Dim Cell As Range

Range("F7").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select

'La ligne ci-dessus sélectionne toutes les cellules utilisées de la feuille
'A remplacer éventuellement par la sélection des cellules que l'on veut
'traiter
For Each Cell In Selection
valeur = Val(Cell.Value) 'renvoie la valeur exacte
Cell = valeur 'que l'on réécrit dans la même cellule
Next

End Sub


Si qqun pouvait voir le fichier que j'ai attaché...
Merci

 

[Ti]

voilà une procédure qui fera ça simplement :

Sub RemplacePoints()
Dim Cel As Range
With ActiveSheet
For Each Cel In .UsedRange
With Cel
.Value = Val(Replace(.Value, ",", "."))
End With
Next Cel
End with
End Sub

mais attention, c'est du vite fait et ta feuille ne devra contenir que des valeurs numériques. toutes les expressions de chaînes seront converties en 0

 

[Reeaz]

Merci, c'est parfait ca fonctionne correctement!!