Vba excel : fonction round pour compatibilité excel 97

Soyez le premier à donner votre avis sur cette source.

Snippet vu 25 874 fois - Téléchargée 30 fois

Contenu du snippet

Simple, très simple... mais encore nécessaire ?!

La fonction SimpleRound a été créée sur le modèle de la fonction éponyme en Delphi (SimpleRoundTo).

Source / Exemple :


Function GetRound(ByVal Expression As String, _
                  Optional DecimalDigitsNumber As Byte = 0, _
                  Optional RoundToFive As Boolean = True) As Double

'Signature 1 : fonction d'arrondi paramétrable (compatible Excel 95/97)
'Contrairement à la fonction "Round", le type d'approximation est modifiable
'et surtout constant quel que soit le nombre de décimales.

   Dim ApproximationValue As Single

   If RoundToFive = True Then
      ApproximationValue = 0.5
   Else
      ApproximationValue = 0.49
   End If

   GetRound = CDbl(Expression) * (10 ^ DecimalDigitsNumber)
   GetRound = Int(GetRound + ApproximationValue) * (10 ^ -DecimalDigitsNumber)

End Function

Function GetRound(ByVal Expression As String, _
                  Optional DecimalDigitsNumber As Integer = 0, _
                  Optional RoundToFive As Boolean = True) As Double
                  
'Signature 2 : fonction d'arrondi paramétrable (compatible Excel 95/97)
'Contrairement à la fonction "Round", le type d'approximation est modifiable
'et surtout constant quel que soit le nombre de décimales.
'De surcroît, cette version permet d'arrondir selon les unités, dizaines, centaines etc.

   Dim ApproximationValue As Single
   
   If RoundToFive = True Then
      ApproximationValue = 0.5
   Else
      ApproximationValue = 0.49
   End If
   
   GetRound = CDbl(Expression) * (10 ^ DecimalDigitsNumber)
   GetRound = Int(GetRound + ApproximationValue) * (10 ^ -DecimalDigitsNumber)
   
End Function

Function SimpleRound(ByVal AValue As Double, _
                    Optional ADigit As Integer = -2) As Double
' Contrairement à la fonction Round cette fonction n'applique pas la règle
' de l'arrondi bancaire. SimpleRound utilise l'arrondi arithmétique asymétrique.
' Cette méthode arrondit toujours vers la valeur la plus grande.

' Arguments :
' - AValue est la valeur à arrondir,
' - ADigit indique la puissance de dix à laquelle vous voulez arrondir AValue.
   
   SimpleRound = AValue * (10 ^ -ADigit)
   SimpleRound = Fix(SimpleRound + 0.5) * (10 ^ ADigit)
   
End Function

Conclusion :


Exemples d'utilisation :
- Signature 1 ou 2 de la fonction
GetRound(12.55, 1) retourne 12.6 ; GetRound(12.55, 1, False) retourne 12.5
GetRound(12.455, 2) retourne 12.46 ; GetRound(12.455, 2, False) retourne 12.45
- Signature 2 de la fonction
GetRound(12455,-1) retourne 12460 ; GetRound(12455,-1, False) retourne 12450
GetRound(12450,-2) retourne 12500 ; GetRound(12450,-2, False) retourne 12400

A voir également

Ajouter un commentaire

Commentaires

Zlub
Messages postés
815
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
4
hum... pas excel 97 d'installé...
FENETRES
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009

Cette fonction est plus généraliste et l'arrondi comptable (RoundToFive=True) est utile quel que soit la version d'excel !
FENETRES
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009

Mille excuses pour les débutants ! Voici un exemple plus explicite.

Round(1.345, 2) retourne 1,34
getRound(1.345, 2, True) retourne 1,35
FENETRES
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009

Si résultat incorrect alors décomposé
le calcul d'arrondi de la façon suivante :
Function GetRound(ByVal Expression As String, Optional DecimalDigitsNumber As Byte 2, Optional RoundToFive As Boolean True) As Double
'Fonction d'arrondi pour compatibilité Excel 97
'Par défaut, contrairement à la fonction round d'Excel, l'approximation est de type monétaire.
Dim ApproximationValue As Single
If RoundToFive = True Then
ApproximationValue = 0.5
Else
ApproximationValue = 0.49
End If
GetRound = CDbl(Expression) * (10 ^ DecimalDigitsNumber)
GetRound = Int(GetRound + ApproximationValue) * (10 ^ -DecimalDigitsNumber)
End Function
FENETRES
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009

Laborieux la mise à jour !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.