Convertir les nombres stockés en tant que texte en nombres [Résolu]

Messages postés
247
Date d'inscription
mercredi 8 mai 2013
Statut
Membre
Dernière intervention
4 novembre 2017
- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
- 30 mai 2016 à 06:34
Bonjour,

sur ma feuilles de calcul les nombres sont stockés sous forme de texte dans la colonne A par Exemple 12,25 et 15,75 ...........
pour le convertir en Vba j'ai fait
l=1
while l <= fincolonne
Valeur = Range("A" & l).Value
Range("A" & l).Value = Val(Valeur)
l=l+1
Wend


les nombres se transforment en nombres Entiers, 12 15 ............

je veux que ces nombre se transforment en nombres Réel 12,25 et 15,75
Afficher la suite 

Votre réponse

2 réponses

Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
207
0
Merci
Bonjour,
Utilise donc une fonction de conversion.
Regarde ce que fait ceci (exemple) :
Dim toto As String, titi As String
toto = "1,24"
titi = "2,35"
MsgBox CDbl(toto) + CDbl(titi)

Lemangoustan
Messages postés
2
Date d'inscription
lundi 30 mai 2016
Statut
Membre
Dernière intervention
30 mai 2016
-
oui, mais si tot = "1.24 usd" ....
il fait une erreur
ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
207 > Lemangoustan
Messages postés
2
Date d'inscription
lundi 30 mai 2016
Statut
Membre
Dernière intervention
30 mai 2016
-
Relis donc ce qu'il a précisé :
dans la colonne A par Exemple 12,25 et 15,75 ..
.........
Maintenant : pour être toujours (quel que soit le séparateur décimal) dans le vrai, il suffit de faire ceci (exemple) :
toto = Val(Replace(Range("A3").Text, ",", "."))
Commenter la réponse de ucfoutu
Messages postés
247
Date d'inscription
mercredi 8 mai 2013
Statut
Membre
Dernière intervention
4 novembre 2017
0
Merci
merci bcp
Commenter la réponse de jamsom