Conversion données en nombre Résolu/Fermé

Question

Bonjour, 
Je souhaiterai convertir des données en nombre afin de faire des calculs.

https://www.cjoint.com/c/FAmwJAVkIef

Je récupère des données à partir d'un autre fichier (F4:J75). Les valeurs contiennent un point au lieu d'une virgule. J'ai fait un test copiant les valeurs dans la plage (K4:O75). Puis sélectionner la plage et remplacer "." par ",". Toutes les valeurs se convertissent alors en nombres.

J'ai créé une macro pour le faire en automatique. Cependant, ça ne fonctionne qu'avec certaines valeurs. Pourriez vous m'aider ?
Ca se trouve il y a une méthode plus simple pour convertir les données en nombre ...

Merci d'avance.

Cordialement.

Configuration: Windows 7 / Chrome 47.0.2526.106

JvDo · Answer

Bonsoir,

Je te conseille d'utiliser une conversion "presque à blanc" :
Sub Macro4()
    Range("F4:J75").Select
    Selection.TextToColumns Destination:=Range("F4"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=".", ThousandsSeparator:=",", _
        TrailingMinusNumbers:=True
End Sub

cordialement

Maurice · Answer

Bonjour
une macro a tester

Sub Test()
Cells.Replace ".", ",", xlPart
   For L = 4 To 75
      Range("F" & L).Value = Range("F" & L).Value * 1
      Range("K" & L).Value = Range("K" & L).Value * 1
   Next
End Sub


A+
Maurice

Conversion données en nombre

2 réponses

Discussions similaires