Discussion :

[aida75]

Bonjour à Tous
Je me permets de vous soumettre un petit souci incompréhensible... m' enfin pour moi :
Voila, j'ai des zones numériques qu'il me faut diviser par 2 et arrondir au chiffre entier supérieur. (ex 3/2=2, 5/2=3, 7/2=4,31/2=16,etc....)
Seulement voilà, une fois sur deux cela ne fonctionne pas avec la fonction ROUND; En effet, j'ai comme résultat 3/2=2(ok), 5/2=2(au lieu de 3),7/2=4(ok),9/2=4(au lieur de 5), etc...
Il semble que cela fonctionne 1 fois sur 2....
Quelqu'un a t-il déjà rencontré ce problème ?!
Dans tous les cas, merci d'avoir pris la peine de me lire et éventuellement de ma répondre.
Bien cordialement,

[nonaparus]

La fonction round n'arrondi pas à l'entier le plus pret quand la valeur décimale = 5 (2.5).

par contre, round(2.51) = 3

Je te propose de te programmer une fonction d'arrondissement

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
Function Arrondir(Valeur As Double) As Integer
    Dim PartieEntiere As Double, PartieDecimale As Double
 
    ' Calcul de la partie entière
    PartieEntiere = Fix(Valeur)
 
    ' Calcul de la partie décimale
    PartieDecimale = (Valeur - PartieEntiere)
 
    Select Case PartieDecimale
        Case Is >= 0.5
          Arrondir = PartieEntiere + 1
        Case Else
          Arrondir = PartieEntiere
    End Select
End Function

A+

JM

[Renardo]

Essai comme ceci

Code :

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

Round([nbr1]/[nbr2];0,9)

Avec format :standard
Decimal:0

[helas]

et ça

Code :

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

1
2
 
?CLng(5/2)-((5 mod 2)>0)