Problème avec les virgules. Résolu

Question

Bonjour tout le monde,

Bonne année à toutes et tous et bonne année au forum.
De nouveau parmi vous pour vous solliciter sur un problème auquel je suis confronté actuellement. Dans ma feuille Excel, j'ai des données numériques de ce genre : 8965.236,35 et puis de ce genre aussi 236,56. A travers ma macro, je voudrais enlever les points mais garder les virgules ( 8965.236,35  ==> 8965236,35). Seulement voila, quand Excel trouve un point il l'enlève, le problème c'est quand il n'y a pas de points, exemple : pour ce chiffre 236,56 il enlève la virgule.
Autrement dit s'il trouve un point dans le chiffre, c'est bon il fait les choses correctement : 8965.236,35  ==> 8965236,35. Mais s'il ne trouve pas un point il commence à faire du n'importe quoi : 236,56 ==> 23656 .

Quelqu'un pourrait-il m'aider s'il vous plaît ? Je vous remercie d'avance pour votre aide.

Voila le code que j'ai utilisé : 

 Cells.Select           Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _        ReplaceFormat:=False

pijaku · Answer

Bonjour,

En effet, c'est curieux.

Essaye cette macro :
Sub EnlevePoints()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
    If InStr(Cel.Value, ".") > 0 Then Cel.Value = Replace(Cel.Value, ".", "")
Next
End Sub

Problème avec les virgules.

1 réponse

Discussions similaires

Newsletters