Discussion :

[Flaguette]

Bonjour,

J'espère que cette fois-ci, c'est un "vrai" problème - pas encore le système qui me joue des tours! Parce que si c'est un "vrai" problème, il y aura une "vraie" solution!!!

Dans ma BD, j'ai une requête qui comporte une formule qui a comme principe (je ne tiens pas compte de la "syntaxe" ici, seulement du principe):

Arrondi (valeur * 1,50)

Et je veux que le résultat soit arrondi sans décimale, au nombre entier supérieur.

Ce qui fait que j'ai des valeurs comme :

5 * 1,5 = 8 (ça, ça va, c'est parfait)
171 * 1.5 = 257 (ça aussi, c'est parfait)
25 * 1.5 = 38 (ça fonctionne)

Mais j'ai aussi comme résultat
15 * 1.5 = 22 (alors que le résultat devrait être 23)
95 * 1.5 = 142 (alors que le résultat devrait être 143)
171 * 1.5 = 256 (alors que le résultat devrait être 257)
31 * 1.5 = 46 (alors que le résultat devrait être 47)

Ça m'embête car comme il s'agit de factures, au bout du compte, je ne balance plus! Car mes factures sont erronnées. À noter que ces résultats sont tous dans la même "colonne"

Quelqu'un a une idée? Parce que ça me bogue...

Merci

[marot_r]

Peut-être en typant tes données comme des double tu pourrais résoudre ce problème.

Tu peux aussi utiliser la fonction suivante qui va faire le travail

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Test_MonArrondi()
    Debug.Print MonArrondi(15 * 1.5)
End Sub
 
Public Function MonArrondi(prmValeur As Double) As Long
 
  Dim result As Long
  Dim partieEntiere As Double
  Dim partieDecimale As Double
  partieEntiere = Int(prmValeur)
  partieDecimale = prmValeur - partieEntiere
 
  If partieDecimale >= CDbl(0.5) Then
      result = CLng(partieEntiere + 1)
    Else
      result = CLng(partieEntiere)
  End If
 
  MonArrondi = result
 
End Function

Au moins si cela ne marche pas tu pourras suivre le calcul.

[LE VIEUX]

bonsoir
il semblerait effectivement que la fonction Round ait des problèmes quand la décimale tombe sur 0.5 - déjà sur ton exemple tu as une fois 171*1.5
qui donne 256 et une autre 257 et ça a mon avis ce n'est pas normal dans tous les cas verifies !!
une solution
supprime la fonction et met simplement dans ton champ calculé
"Nom du Champ":[VALEUR]*1.5 et la propriété du champ : décimal = 0 et tu n'auras plus de problème, tes sommes seront correctes.

[Flaguette]

Merci à vous deux de vos réponses.

Cependant, le VBA est un peu au-dessus de mes compétences immédiates. Et 0 décimale permet un affichage adéquat... mais le grand total au bas de la page en tient compte.

Vos commentaires m'ont cependant donné une idée toute simple qui fonctionne parfaitement!

Arrondi ((valeur+0,01) * 1,50)

(Ce calcul en est un de tarification en dollars) J'ai ajouté un cent à ma formule et Access calcule correctement l'arrondi!

[LE VIEUX]

ha! ha! malines ces nanas - elles trichent et finalement malgré les difficultes elles trouvent la solution -
félicitation tu as trouvé une solution

[marot_r]

Cependant, le VBA est un peu au-dessus de mes compétences immédiates.

Il suffit de créer un nouveau module et de copier le code que j'ai écrit. Après tu remplace le round() par MonArrondi() et le tour est joué.

A+