Conversion données en nombre

Résolu/Fermé

ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 - 12 janv. 2016 à 23:36
ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 - 17 janv. 2016 à 23:13

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.

A voir également:

Conversion données en nombre
Effacer les données de navigation - Guide
Reinstaller windows sans perte de données - Guide
Nombre facile - Télécharger - Outils professionnels
Données gps - Guide
Comment sauvegarder toutes les données de mon téléphone - Guide

2 réponses

Réponse 1 / 2

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
13 janv. 2016 à 01:28

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

ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
17 janv. 2016 à 16:46

Bonjour,
Merci pour la réponse. J'ai remplacé directement la macro par ce code et ça ne fonctionne pas. Un message d'erreur s'affiche.

Cordialement.

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
17 janv. 2016 à 17:18

Bonjour,

1ère ligne de la macro, remplace J par F

cdlt

ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
17 janv. 2016 à 23:07

Merci beaucoup !

Réponse 2 / 2

Maurice
17 janv. 2016 à 17:26

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

ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
17 janv. 2016 à 23:13

Merci de ton aide mais avec ce code la virgule est à la mauvaise place (comme ma macro).

La solution de JvDo est correcte.

Discussions similaires

Snapchat locked : mon compte snapchat est bloqué

Accès a Snapchat temporairement désactivé

Exemple de base de données access

Compte snapchat bloqué temporairement

TNT base de donnees vide!!

Discussions similaires

Newsletters