Discussion :

[pikron]

Bonjour,

Je suis en train de copier en vba des valeurs d'un fichier texte vers excel.

Ces valeurs sont des nombres à exactement 1 décimale pas plus. Et quand elles sont copiées dans excel, elles prennent des valeurs proches avec pleins de décimales. Par exemple : 4.6 devient 4,59999990463256, 31.6 devient 31,6000003814697, par contre parfois par exemple 11.0, ou 0.2 sont copiés tels quels.

Je sais normalement comment tronquer ou arrondir des nombres à virgule, donc je pourrais retrouver leur valeur précise d'origine, mais je me pose la question pourquoi un tel "désarrondi" ?

Mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim pluvio As Single
...
numFile = FreeFile
Open nomFichier For Input As numFile
Do While Not EOF(numFile)
    Line Input #numFile, texte
    ...
    pluvio = Val(Mid(texte, 20, 6))
    FeuilDonneesImportees.Cells(row, col + 1).Value = pluvio
    ...

Pensant que c'était la fonction Val() le problème, j'ai essayé avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
' Arrondi Val(...) à une décimale
pluvio = Int(10 * Val(Mid(texte, 20, 6)) + 0.5) / 10

Mais ça ne change rien...

Je ne comprends pas, étant un peu matheux ça me perturbe de me dire que je dois copier en faussant leur valeur précise (pour certains seulement !) des nombres à une décimale, pour ensuite les réarrondir pour retrouver leur vraie valeur !!

si quelqu'un a une réponse ...

Merci

[Marc-L]

Bonjour,

normal vu la ligne n°2 !

Deux solutions :

• soit modifier la ligne n°2 ainsi : Dim pluvio As Double

• soit ne pas utiliser une telle variable pluvio et modifier la ligne n°10 ainsi :

FeuilDonneesImportees.Cells(row, col + 1).Value = Val(Mid(texte, 20, 6)) …


Si la cellule est au format Standard, il n'y aurait même pas besoin de Val …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

bonjour,
n’oublies pas que le séparateur décimal de VBA est le [.] et celui de Windows option régionale est bien sauvant [,]
si je fait "a" + "b" VBA considère ça comme une concaténation "a" + "b" = "ab".
tu dois être sur que ta valeur soit du numérique du point de vue VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pluvio = 10 * (CDbl(Replace(Trim("" & Mid(texte, 20, 6)), ",", ".")) + 0.5) / 10

[pikron]

modifier la ligne n°2 ainsi : Dim pluvio As Double

En effet, c'est ça !!

Est-ce que je pourrais avoir une explication, car pour moi Double c'est juste comme Single mais avec plus d'allocation mémoire non ?

[Marc-L]

Heu non, il y a aussi le double de précision …


__________________________________________________________________________________________
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

[pikron]

Heu non, il y a aussi le double de précision …

Pourrais-tu préciser ? (j'ai essayé de comprendre sur internet) En fait single ne stockerait pas assez de décimales pour être assez précis (en tout cas moins que double) ? J'aimerais bien comprendre ces fonctionnements. Merci

[pikron]

Ce lien explique assez bien la différence :
http://visualbasic.w3computing.com/v...on-numbers.php