Accueil > > > VBA EXCEL : FONCTION ROUND POUR COMPATIBILITÉ EXCEL 97
VBA EXCEL : FONCTION ROUND POUR COMPATIBILITÉ EXCEL 97
Information sur la source
Description
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
- 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
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
Historique
- 22 juillet 2005 14:31:05 :
- Décomposition
- 22 juillet 2005 14:33:18 :
- Décomposition du calcul d'arrondi
- 22 juillet 2005 14:51:24 :
- Décomposition du calcul d'arrondi
- 22 juillet 2005 15:11:27 :
- Capture d'écran
- 27 juillet 2005 11:47:44 :
- Correction du commentaire de la fonction et zéro décimale par défaut
- 27 juillet 2005 11:52:29 :
- Capture d'écran avec résultats de la fonction "Round"
- 27 juillet 2005 13:33:03 :
- MAJ capture d'écran
- 21 février 2007 14:24:22 :
- Ajout de la signature 2 de la fonction pour rendre celle-ci plus visible.
Naturellement, il vous faudra choisir une seule signature (surcharge non autorisée) de la fonction selon vos besoins.
- 04 avril 2008 10:05:51 :
- Ajout de la fonction SimpleRound
- 04 avril 2008 10:13:32 :
- Ajout commentaire
- 04 avril 2008 10:56:41 :
- complément commentaire
- 10 avril 2008 14:09:59 :
- Correction de la fct SimpleRound
- 10 avril 2008 17:59:40 :
- commentaire
- 14 avril 2008 18:12:23 :
- SimpleRound (valeur par défaut)
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
ARRONDIR DECIMAL VB.NET [ par spike62300 ]
Bonjour ,voila j'ai besoin pour mon developpement d'arrondir certains chiffres apres la virgul. Pour l'instant ca serait l'arrondi le plus basique15.2
arrondir un resultat VBA ça doit etre facile mais bon ... [ par yaya31 ]
re bonjourj ai cette ligne de codesomme = (rs.Fields(1) * 1.196 - rs.Fields(2)) + (rs.Fields(3) * 1.196)j ai declaré somme en Double J aimerais arrond
VBA excel => pb d'arrondi avec la fonction Round [ par tramb ]
Salut à tous, J'ai un ptit pb : en dvppant une macro, j'ai besoin de passer d'un chiffre à une décimale à un chiffre entier.Or, quand j'utilise la fon
Detacher un doc de Lotus avec une macro VBA [ par ouppps ]
oupppsBonjour a tous,Je cherche a detacher une spreadsheet Excel attachee dans un mail dans Lotus Notes en utilisant une macro VBA sous excel.L'auteur
Remplacement de fichier sous VBA [ par Peshkavus ]
Bonjour à tousJe dois vérifier l'existence d'un fichier sous VBA, pour le remplacer. Je veux donc le supprimer si ce fichier existe déjà, pour le regé
Tutorial ou Cours VBA pour Word [ par mateo77 ]
Etant débutant, je recherche cours sur IUnternet ou tutorial sur VBA pour Word.Est-il possible d'écrire dans un document Word et d'insérer une image
VBA POUR LES NOOBS - Vérifier un champs [ par Worldofdada ]
Salut !En fait, je voudrais simplement vérifier que l'utilisateur a bien rempli un champs (on dirra ZT_Date) avec d'appuyer sur le bouton Ok. Pour cel
Numéro serie & Registre & VBA ou VB6 [ par QUINQUIN67 ]
Bonjour, je suis débutant.J'arrive enfin à récuperer en vb6 un numero de serie inscrit dans la base de registre par contre comment faire pour enlever
PB VBA sous word [ par cerbere63 ]
bonjour a tousvoila j'ai un tit soucij'ai recement creer un model de document word contenant plusieur macro et une formtout ce ptit monde marche parfa
INSERT avec virgule sous VBA [ par Clonk ]
Bonjour,J'ai un petit problème en VBA, sûrement pas grave, mais disons que j'ai un problème de timing pour m'y pencher à fond. C'est pourquoi je fais
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en ½uvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|