Convertir les nombres stockés en tant que texte en nombres

Résolu

jamsom Messages postés 244 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 4 novembre 2017 - 28 mai 2016 à 19:06
ucfoutu Messages postés 18038 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

A voir également:

Nombre stocké sous forme de texte vba
Vba doevents - Conseils pratiques -Visual Basic / VB.NET
Byval vba - Conseils pratiques -Visual Basic / VB.NET
Nombre de semaine par an - Forum C / C++ / C++.NET
Zone de texte canva ✓ - Forum Delphi / Pascal
Vba mise en forme cellule - Forum Visual Basic

2 réponses

Réponse 1 / 2

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 212
28 mai 2016 à 19:34

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
30 mai 2016 à 05:47

oui, mais si tot = "1.24 usd" ....
il fait une erreur

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 212 > Lemangoustan Messages postés 2 Date d'inscription lundi 30 mai 2016 Statut Membre Dernière intervention 30 mai 2016
Modifié par ucfoutu le 30/05/2016 à 06:43

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, ",", "."))

Réponse 2 / 2

jamsom Messages postés 244 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 4 novembre 2017
28 mai 2016 à 22:43

merci bcp

Discussions similaires

[VBA] Conversion nombre stocké texte en chiffre

génerateur de nombre aléatoire

Conversion d'un nombre entier en une chaine de caractère

Convertir un integer en string

Comment générer de très grand nombres aléatoires?

Votre réponse

Discussions similaires