Discussion :

[grommerch]

Bonjour,

J'arrondis un nombre en VBA avec la fonction Int. Tout se passe bien sauf si la partie décimale se termine par zéro, dans ce cas, il ne m'affiche qu'une décimale bien que tous mes format soit réglés sur 2 décimales.
J'ai essayé avec Format et FormatNumber également Round au lieu de Int, mais rien à faire
Ci dessous la ligne de code qui cause problème.

Code :

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

1
2
 lv_montant = Int((ip_montant * (1 + ip_taux_tva)) * 100 + 0.5) / 100
           Format lv_montant, 2

Le nombre 1130 comme ip_montant et 0.17 comme ip_taux_tva pour que cela ne fonctionne pas
Pour info, lv_montant est déclaré en Single

Merci pour votre aide

Je reste à votre disposition pour d'autres infos que vous jugeriez utiles

Salutations

[marot_r]

Bonjour.

Note que le format est simplement un format d'affichage, il ne détermine pas le nombre de décimales réellement utilisées.

Si tu veux voir 2 décimales, il faut définir un format d'affichage de type : 0.00 dans le TextBox utilisé pour l'affichage.
Et c'est de l'affichage uniquement, si tu entres en saisie tu vas voir toutes les décimales utilisées.

A+

[grommerch]

Merci pour ta réponse.

Mais le problème c'est que je n'affiche pas cette valeur dans un testbox, je transforme via VBA ce nombre en lettres puis je l'affiche.
Comme le zero n'apparait pas dans VBA, la fonction qui me le transforme en lettre m'inscrit "Mille trois cent vingt-deux EUR et cent." pour l'exemple cité.
Je pense que je vais modifier la fonction qui transforme le nombre en lettre, ce sera peut être plus facile.

Salutations

[marot_r]

Bonjour.

Tu peux utiliser Format(TonNombre, "0.00") cela va forcer la 2ième décimale.

A+