equivalent de round pur VBA ?

[dry]

je voudrais juste arrondir un nombre au format long à 2 chiffre apres la virgule en VBA.

ex : equivalent de =round(45.2124587,2)

 

[Alain]

Bonjour,


Tu peux utiliser :

=Application.WorksheetFunction.Round(Nombre, 2)

@+

 

[dry]

Merci Alain !!
ca marche impec 🙂
vous etes des chefs ! (Alain en l' occurrence )

 

[@+Thierry]

Bonjour Dry et Alain,

Bien que Application.WorksheetFunction puisse fonctionner pour Round, je tiens toutefois à faire une petite précision car Round est une Function intégrée dans VBA et donc elle peut-être utilisée directement sans avoir à faire appel aux fonctions d'Excel. (gain en temps de calcul)

Exemple :
Sub Test()
Dim MonChiffre As Double
MonChiffre = Range("A1")

MsgBox Round(MonChiffre, 0)
End Sub


Toutefois seul Round est admis de la sorte, si l'on doit faire appel aux fonctions "RoundUp" ou "RoundDown", la méthode d'Alain est alors nécessaire.


Bon Appétit à tous et toutes
@+Thierry

 

[patrovit]

Re : Re: equivalent de round pur VBA ?

Bonjour Dry et Alain,

Bien que Application.WorksheetFunction puisse fonctionner pour Round, je tiens toutefois à faire une petite précision car Round est une Function intégrée dans VBA et donc elle peut-être utilisée directement sans avoir à faire appel aux fonctions d'Excel. (gain en temps de calcul)

Exemple :
Sub Test()
Dim MonChiffre As Double
MonChiffre = Range("A1")

MsgBox Round(MonChiffre, 0)
End Sub


Toutefois seul Round est admis de la sorte, si l'on doit faire appel aux fonctions "RoundUp" ou "RoundDown", la méthode d'Alain est alors nécessaire.


Bon Appétit à tous et toutes
@+Thierry

Salut,

une petite précision sur l'utilisation de Round() en VBA. Elle n'a pas la même comportement que =round() de Excel lorsque le nombre à arrondir est en ,5 :

Round(1.5 , 0)= 2
Round(2.5 , 0)= 2
Round(3.5 , 0)= 4
Round(4.5 , 0)= 4
Round(5.5 , 0)= 6
Round(6.5 , 0)= 6

alors que sous Excel :

=Round(1,5 ; 0) = 2
=Round(2,5 ; 0) = 3
=Round(3,5 ; 0) = 4
=Round(4,5 ; 0) = 5
=Round(5,5 ; 0) = 6
=Round(6,5 ; 0) = 7

(source : FAQ Visual Basic - Question 148 : Comment fonctionne la fonction Round() ?)

Pour avoir le même résultat sous VBA et Excel, utiliser en VBA :
Application.WorksheetFunction.Round(Nombre, 0)

J'espère que ça peut aider !😱
Bonne journée !

Patrovit