Arrondi avec multiple de 10

Fermé
mart - 22 sept. 2010 à 16:34
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 25 sept. 2010 à 01:15
Bonjour,

J'aimerais savoir comment faire pour ne division par mutiple de 10. Le code inséré me donne un arrondi supérieur ex: 1076 me donne 1080 sauf que dans les cas en bas de 5, je veux avoir l'arrondi au plus bas tel que 1073, je veux 1070 et non 1080 telle que me donne ma formule : Public Function RoundSup(ByVal Nbre As Double, ByVal Multi As Integer) As Variant
RoundSup = IIf(Nbre Mod Multi = 0, Nbre, Multi * (1 + Nbre \ Multi))

End Function
Code en VBA sous excel
Quelqu'un aurait-il une réponse ?

Merci à vous tous

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 763
25 sept. 2010 à 01:15
Bonsoir

Tu peux utiliser cette fonction arrondi :
Fonction d'arrondi Supp/Inférieur à n décimales

Pour arrondir par multiple de 10 l'utilisation est la suivante :
Nbre_arrondi = Arrondi(Nombre, -1)

Et pour arrondir par multiple de 100 l'utilisation est la suivante :
Nbre_arrondi = Arrondi(Nombre, -2)

Cordialement
Patrice
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 287
25 sept. 2010 à 00:05
Bonsoir,

Si j'ai bien compris, tu peux utiliser le code suivant :
Nb_arrondis=10*WorksheetFunction.RoundDown(Nb_brut/10, 0)


@+
-1