Discussion :

[batseb]

Bonjour,

J'ai un problème d'arrondi sous excel en VBA. J'utilise la fonction suivante :

Code :

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

1
2
3
4
 
Function Arrondir(ByVal Nombre As Currency, ByVal Decimales As Integer)
      Arrondir = Int(Nombre * 10 ^ Decimales + 1 / 2) / 10 ^ Decimales
End Function

En effet, la fonction Round n'arrondit pas correctement pour les ",5".

Pourquoi ai-je un problème pour certaines valeurs :
69.315 => 69.32 OK
69.325 => 69.32 PB
69.335 => 69.34 OK

Bien cordialement,

[Jean-Philippe André]

Salut,

ce problème d'arrondi sur les valeurs pile "entre" est bien connu des développeurs. Il a fait l'objet d'un article détaillé chez MS :
http://support.microsoft.com/kb/196652/fr

[Igloobel]

Bonjour,

Il existe deux methode pour palier l'arrondi Round qui est imparfait :

Syntaxe

. expression.RoundDown(Arg1, Arg2)

. expression.RoundUp(Arg1, Arg2)

Elles existent sur la version 2010 mais je sais pas si elles existent avant

A+

[Invité]

Bonjour,

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
22
23
24
25
26
Sub test()
Dim a As Double
Debug.Print MyRound(1.666666666, 0)
Debug.Print MyRound(1.555555555, 0)
Debug.Print MyRound(1.666666666, 1)
Debug.Print MyRound(1.555555555, 1)
Debug.Print MyRound(1.666666666, 2)
Debug.Print MyRound(1.555555555, 2)
Debug.Print MyRound(1.666666666, 3)
Debug.Print MyRound(1.555555555, 3)
Debug.Print MyRound(1.666666666, 4)
Debug.Print MyRound(1.555555555, 4)
End Sub
 
Function MyRound(V, D) As Double
Dim N As Double
N = Replace(V, ".", ",")
dc = Split(N & ",", ",")
dc(1) = dc(1) & Space(D): dc(1) = Replace(dc(1), " ", "0")
If D = 0 Then
    If Int(Left(dc(1), 1)) < 6 Then MyRound = "" & dc(0) Else MyRound = dc(0) + 1
 
Else
If Int(Mid(dc(1), D, 1)) < 6 Then MyRound = "" & dc(0) & "," & Left(dc(1), D) Else MyRound = "" & dc(0) & "," & (Left(dc(1), D) + 1)
End If
End Function

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
22
23
24
25
26
27
28
29
30
31
32
Sub test2()
Debug.Print MyRound2(1.666666666, 0)
Debug.Print MyRound2(1.555555555, 0)
Debug.Print MyRound2(1.666666666, 1)
Debug.Print MyRound2(1.555555555, 1)
Debug.Print MyRound2(1.666666666, 2)
Debug.Print MyRound2(1.555555555, 2)
Debug.Print MyRound2(1.666666666, 3)
Debug.Print MyRound2(1.555555555, 3)
Debug.Print MyRound2(1.666666666, 4)
Debug.Print MyRound2(1.555555556, 4)
End Sub
 Function MyRound2(V, D) As Double
 Dim N As String
 Dim P As String
N = Replace(V, ".", ",")
P = InStr(N, ",")
For i = Len(N) To P + 1 + D Step -1
    If Int(Mid(N, i, 1)) < 6 Then
         Mid(N, i, 1) = 0
    Else
        If Mid(N, i - 1, 1) <> "," Then
            Mid(N, i - 1, 1) = Mid(N, i - 1, 1) + 1
            Mid(N, i, 1) = 0
        Else
            Mid(N, i - 2, 1) = Mid(N, i - 2, 1) + 1
            Mid(N, i, 1) = 0
        End If
    End If
Next
MyRound2 = N
 End Function