Problème de décimale

[ifi77]

Bonjour @ tous,

mon probleme parait simple mais vu que je tourne en rond depuis trop longtemps je me permets de vous demander un petit éclairage.

Sur une feuille, je copie des prix via un userform, ces derniers s'inscrivent sans probleme sur ma feuille excel.

Le probleme se pose lorsque je veux utiliser la valeur de ma page pour la multiplier à une quantité, en fait il m'arrondi à chaque fois à l'entier, si j'ai 0,6 il m'arrondi à 1, 1,8 à 2 etc...

Comment faire pour qu'il prenne en compte la valeur exacte.

J'ai essayé format, le nombre est bien en chiffre dans la feuille, là je ne sais plus.

voici mon code:

tarif as integer

With Sheets("tarification")
tarif = Format(.Cells(y, 3), "0,00")
perte = quantite * tarif
End With

Merci @ tous

 

[Pierrot93]

Re : Problème de décimale

Bonjour,

peut être qu'un petit fichier représentant uniquement le problème posé nous aiderait à t'aider...

bonne journée
@+

 

[Misange]

Re : Problème de décimale

Bonjour
c'est cette ligne qui te pose le problème
tarif = Format(.Cells(y, 3), "0,00")
supprime là et choisis dans la feuille excel le format d'AFFICHAGE. Tu verras dans la feuille tes 2 chiffres après la virgule mais le calcul sera toujours fait avec la totalité du nombre.

 

[PascalXLD]

Re : Problème de décimale

Bonjour

Tu as déclaré tarif comment. Pas en Integer j'espère

 

[ifi77]

Re : Problème de décimale

Merci @ tous,

je sais que sans fichier cela rend plus compliqué la compréhension mais celuici est assez volumineux, je vous refait un petit fichier light extrait de l'application.

Pour pascal, je me doutais que cela pouvais venir de la déclaration de variable, si j'ai bien mis integer, quelle serait la déclaration la plus juste?

merci.

@+

 

[ifi77]

Re : Problème de décimale

Voici le fichier joint merci

@+

 

[mutzik]

Re : Problème de décimale

re, il faut le déclarer en double

 

[ifi77]

Re : Problème de décimale

un grand merci mutzik, simplement dans la déclaration, j'aurais du creuser ma première idée.

@+