Arrondir en VBA

Iqra Hasnain 12 juillet 2022
Arrondir en VBA

Nous utiliserons des exemples pour introduire les fonctions Round() et RoundUp() en VBA.

Utiliser les fonctions Round() ou RoundUp() dans VBA

Lorsque nous travaillons avec des feuilles Excel contenant des nombres et des calculs, nous obtenons des résultats en fractions. Parfois, nous devons convertir ces nombres décimaux en nombres entiers.

VBA fournit trois fonctions différentes qui peuvent être utilisées pour convertir des nombres décimaux en nombres entiers. Nous aborderons deux fonctions dans cet article.

Le Round() arrondit le nombre décimal au nombre entier le plus proche. Par exemple, nous allons stocker un nombre décimal puis utiliser la fonction Round().

Exemple de code :

# VBA
Sub roundFunc()
Dim num As Double
num = 5.79
MsgBox Round(num)
End Sub

Production:

fonction ronde en VBA

Nous pouvons même mentionner le nombre de décimales jusqu’à ce que nous voulions arrondir le nombre décimal. Essayons d’arrondir le même nombre à la décimale près.

Exemple de code :

# VBA
Sub roundFunc()
Dim num As Double
num = 5.79
MsgBox Round(num, 1)
End Sub

Production:

fonction d’arrondi jusqu’à une décimale en VBA

À partir du résultat ci-dessus, nous pouvons facilement arrondir le nombre décimal jusqu’à 1 décimale. Nous pouvons également utiliser cette fonction pour arrondir la valeur de la cellule dans la feuille Excel.

Essayons d’arrondir le nombre dans la feuille Excel en utilisant la méthode de la plage.

Exemple de code :

# VBA
Sub roundFunc()
Range("A1").Value = Round(Range("A1").Value, 1)
End Sub

Production:

arrondir un nombre à partir d’une feuille Excel dans VBA

Discutons d’une autre fonction qui peut arrondir le nombre décimal même si le nombre est proche du plus petit nombre entier. Il peut y avoir de nombreuses situations où nous devons toujours arrondir le nombre décimal au nombre entier supérieur au nombre décimal.

Syntaxe:

# VBA
Application.WorksheetFunction.RoundUp(num, 1)

Prenons un exemple et essayons d’utiliser la fonction RoundUp().

Exemple de code :

# VBA
Sub roundFunc()
Dim num As Double
num = 5.468
MsgBox Application.WorksheetFunction.RoundUp(num, 1)
End Sub

Production:

fonction d’arrondi dans VBA

De cette façon, nous pouvons arrondir les nombres au plus grand nombre entier possible en utilisant la fonction RoundUp().