Variable à 2 décimales affichée avec 14

Version imprimable

17/11/2014, 11h03
bill_barroud

2 pièce(s) jointe(s)

Variable à 2 décimales affichée avec 14

Bonjour,

j'ai tenté de chercher sur google sans trouver la terminologie adéquat pour trouver la solution de mon problème...
J'ai déjà eu le cas mais impossible de me souvenir comment j'avais géré ça.

Voici donc de quoi il s'agit.

j'ai une variable de type Single dans laquelle je charge une valeur assemblée (ex : 4 & "," & 79)
Ma variable affiche bien 4,79 (pj n°1) :

Pièce jointe 161633

Par contre une fois que j'affecte ma valeur dans une case de am feuilel de calcul j'ai tout un tas de décimales sorties d'on ne sais où...

Pièce jointe 161634

J'ai tenté d'arrondir ma valeur "round(n,2)", de gérer le format "formatnumber(n,2)", sans succés.

Quelqu'un a-t-il une idée sur la question ?

Par avance merci de votre aide.
17/11/2014, 11h20
Daniel.C
Bonjour,

C'est une problème qu'on rencontre parfois lié au mode de calcul des ordinateurs. Regarde cette page :

https://support.microsoft.com/kb/125056/fr

Les méthodes suivantes fonctionnent :

Code:

Sys_solaire = Round(Sys_solaire, 2)

ou :
Code:

1 2 Range("E1").Value = Sys_solaire Range("E1").NumberFormat = "0.00"
17/11/2014, 11h54
bill_barroud

Merci pour votre réponse.

Je n'arrive pas à charger la page de MS...

J'ai déjà testé ces options.
Comme indiqué dans ma question j'ai testé la fonction "round(n,2)" (ainsi que la fonction "formatnumber(n,2)") sans succès.
De toute façon ces deux fonctions ont pour but d'arrondir la variable or elle l'est déjà.

Comme on le voit dans ma pj la valeur de la variable est bien 4,79.

L'autre option proposée concerne le format visuel d'excel, on verra bien 4,79 mais le contenu de la cellule sera toujours le même : 4,78999...etc...

Et je sèche toujours :/
17/11/2014, 12h27
bill_barroud

J'ai retrouvé le message que j'avais fait à l'époque (j'avais perdu mon id...)

Le voici : http://www.developpez.net/forums/d10...string-single/

Fort de cette découverte j'ai stocké ma variable en "string" puis j'ai convertit ma cellule avec la méthode indiqué de "cellule au format texte" en "cellule de nombre".
Nickel.

Mais non, ça ne fonctionnait pas avec les chiffres ayant 3 décimales...
Il m'affichait 4103 au lieu de 4,103.

J'ai donc compris mon problème.

Une question de format système...

Mon excel est paramètré pour utiliser la virgule "," comme séparateur entier/décimal alors que mon système utilise le point "."...

Le code à utiliser était donc :

Code:

sys_Solaire = Mid(pos, 2, 1) & "." & Mid(pos, 4, 1)

tout fonctionne maintenant.

Merci d'avoir pris le temps de me lire, d'y réfléchir et de me répondre.
17/11/2014, 15h25
vinc_bilb

Bravo mais .... cependant, ce n'est pas très propre de mon point de vue et risqué....

1 Attention à vos déclarations de variables et aux conversions implicites faites par VBA

vous déclarerz Sys_Solaire comme un single mais vous le traitez ensuite comme un string et c'est VBA qui se débrouille ....
sys_Solaire = Mid(pos, 2, 1) & "." & Mid(pos, 4, 1)

2. Vous pouvez aussi utiliser la fonction split ou like pour optimiser votre code

Bonne journée
17/11/2014, 16h42
Daniel.C

@ bill_barroud

Citation:

J'ai déjà testé ces options.

Sûr ?

Les deux fonctionnent; et si "NumberFormat" ne fait qu'afficher le format sans changer la valeur, si tu avais imposé un format "Nombre" sur la colonne, tu ne te serais pas aperçu de l'écart, ni à l'affichage ni ,très probablement, avec les éventuels calculs postérieurs.
18/11/2014, 14h56
bill_barroud

Citation:

Envoyé par vinc_bilb

Bravo mais .... cependant, ce n'est pas très propre de mon point de vue et risqué....

1 Attention à vos déclarations de variables et aux conversions implicites faites par VBA

vous déclarerz Sys_Solaire comme un single mais vous le traitez ensuite comme un string et c'est VBA qui se débrouille ....
sys_Solaire = Mid(pos, 2, 1) & "." & Mid(pos, 4, 1)

2. Vous pouvez aussi utiliser la fonction split ou like pour optimiser votre code

Bonne journée

Je ne connaissais pas "split" et "like" et je ne suis pas certains d'arriver à en appréhender toute les subtilités.

Pour revenir à vos remarques, je pense en effet qu'initialement mon erreur était là également : en entrant une valeur formatée comme on formate une chaine de caractère (mid & "" & mid) dans une variable de type Single.

Ce que je n'ai pas précisé lors de mon post de cloture c'est que j'ai aussi changé de type variable, je la déclare en "string" et plus en "single".