Arrondir" dans une condition"

Bonjour,

pour cette condition

Code:

---

If Range("K18").Value < Range("K16").Value - Range("K19").Value

---

Comment pourrais je dire que If Range("K18").Value < à l'arrondi à un chiffre après la virgule de ça (Range("K16").Value - Range("K19").Value)

je sais que c'est Round.. mais j'arrive pas à l'utiliser comme il faut

Merci d'avance

Bonjour,

Round n'est pourtant pas la fonction la plus délicate à gérer.
Je ne l'ai jamais utilisée telle quelle dans mes macros, mais on va la décortiquer

Aide Microsoft :

Citation:

---

Description

Renvoie un nombre arrondi à un nombre spécifié de positions décimales.

Syntaxe

Round(expression [,numdecimalplaces])

La syntaxe de la fonction Round comprend les éléments suivants :

Élément Description
expression Expression numérique arrondie.
numdecimalplaces Facultatif. Nombre indiquant combien de positions à droite de la virgule sont incluses dans le nombre arrondi. Si cette valeur est omise, les entiers sont arrondis par la fonction Round.

---

On a deux "données" à lui fournir, seule la première est obligatoire :

- l'expression sur laquelle on fait l'arrondi
- la précision de l'arrondi (= nombre de chiffres après la virgule). Si on indique rien, on fait un arrondi sur le nombre entier

ce qui donnerait (à tester)

Code:

---

1 2	If Range("K18").Value < Round(Range("K16").Value - Range("K19").Value, 1) Then

---

Merci d'avoir pris le temps de m'aider mais aussi de m'expliquer
Bonne journée

Bonjour,

Il faut quand même être prudent avec la fonction Round() en VBA. Je ne sais pas si c'est toujours le cas, mais, à un certain moment, Microsoft avait implanté une fonction Round() conforme à une norme IEEE, pour l'arrondi du 5. Selon cette norme le 5 doit être arrondi à la valeur paire. Cela veut ou voulait dire que le 5 peut être arrondi à la hausse ou à la baisse.

Exemples:

3,5 est arrondi à 4, parce que 4 est pair et 3 est impair (à la hausse)
2,5 est arrondi à 2, parce 3 est impair et 2 est pair (à la baisse)

5,55 est arrondi à 5,6
5,45 est arrondi à 5,4

Ce test rapide avec Excel 2010 montre que cela semble être toujours le cas:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Arrondir5() Dim j As Integer j = 1 For i = 0.5 To 10.5 Step 1 Cells(j, 1).Value = i Cells(j, 2).Value = Round(i, 0) j = j + 1 Next End Sub

---

Si tu veux que le 5 soit toujours arrondi à la hausse, tu vas avoir besoin d'une procédure adaptée en conséquence.

Citation:

---

Envoyé par clementmarcotte

Si tu veux que le 5 soit toujours arrondi à la hausse, tu vas avoir besoin d'une procédure adaptée en conséquence.

---

Bonjour
5 toujours arrondi à la hausse

Code:

---

1 2 3 4 5 6 7 8 9

Sub Arrondir5() Dim j As Integer j = 1 For i = 0.5 To 10.5 Step 1 Cells(j, 1).Value = i Cells(j, 2).Value = WorksheetFunction.MRound(i, 1) j = j + 1 Next End Sub

---