Arrondi avec multiple de 10

mart -  
Patrice33740 Messages postés 8930 Statut Membre -
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

A voir également:

2 réponses

Patrice33740 Messages postés 8930 Statut Membre 1 782
 
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 928 Statut Membre 289
 
Bonsoir,

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


@+
-1