Arrondi au multiple

Version imprimable

24/07/2010, 15h00
iperkut

Arrondi au multiple

Bonjour

Je cherche a reproduire la fonction ARRONDI.AU.MULTIPLE de excel en VBA.

Je voudrais avoir le multiple de 5 d'un nombre.

exemple :

x = 2
nombre multiple de 5 le plus proche : 0

x = 3
nombre multiple de 5 le plus proche : 5

x = 12
nombre multiple de 5 le plus proche : 10

sauf que cela ne me convient pas, il faudrait que cela me retourne toujours le multiple de 5 supérieur.

avec les exemple précédents :

x = 2
nombre multiple de 5 : 5

x = 3
nombre multiple de 5 : 5

x = 12
nombre multiple de 5 : 15

merci d'avance pour votre aide...

Code:

1
2
3
Public Function RoundSup(ByVal Nbre As Double, ByVal Multi As Integer)
RoundSup = IIf(Nbre Mod Multi = 0, Nbre, Multi * (1 + Nbre \ Multi))
End Function

=RoundSup(12;5) donne 15

24/07/2010, 15h25
iperkut

Parfait....

Merci !!
24/07/2010, 15h43
iperkut

J'ai parlé un peu trop vite....
Cela ne marche pas pour les négatifs :)

On va la faire marcher

Code:

1
2
3
Public Function RoundSup(ByVal Nbre As Double, ByVal Multi As Integer)
RoundSup = IIf(Nbre Mod Multi = 0, Nbre, Multi * Sgn(Nbre) * ((1 + 1 * Sgn(Nbre)) + Abs(Nbre) \ Multi))
End Function

Je viens de voir votre réponse..

J'avais fais un truc moins propre :)

Code:

1
2
3
4
5
6
7
8
 
Public Function RoundSup(ByVal Nbre As Double, ByVal Multi As Integer)
    If Nbre <= 0 Then
        RoundSup = IIf(-Nbre Mod Multi = 0, -Nbre, 5 * (1 + -Nbre \ Multi)) * -1
    Else
        RoundSup = IIf(Nbre Mod Multi = 0, Nbre, 5 * (1 + Nbre \ Multi))
    End If
End Function

24/07/2010, 16h16
mercatog

-6 donnera -5 ou -10?

Votre version après correction des petites erreurs...
Code:

1 2 3 4 Public Function RoundSup(ByVal Nbre As Double, ByVal Multi As Integer) RoundSup = IIf(Sgn(Nbre) * Nbre Mod Multi = 0, Sgn(Nbre) * Nbre, Multi * (1 + (Sgn(Nbre) * Nbre) \ Multi)) * Sgn(Nbre) End Function
Tout fonctionne maintenant parfaitement...

Merci beaucoup de votre aide !

Non, il fallait ceci pour la faire marcher correctement

Code:

1
2
3
Public Function RoundSup(ByVal Nbre As Double, ByVal Multi As Integer)
RoundSup = IIf(Nbre Mod Multi = 0, Nbre, Multi * Sgn(Nbre) * ((1 + Sgn(Nbre)) / 2 + Abs(Nbre) \ Multi))
End Function

24/07/2010, 16h22
iperkut

Citation:

Envoyé par mercatog

-6 donnera -5 ou -10?

-6 donne -10
toujours le multiple supérieur
24/07/2010, 16h24
mercatog

-6 est bien supérieur à -10!!!
24/07/2010, 16h33
iperkut

Si je ne m'abuse, votre version donne pour x=-6 :
multiple = -5
et la mienne :
multiple = -10

je me suis mal exprimé, en effet -6 est plus grand que -10, mais dans le cas de nombres négatifs, je veux avoir le multiple le plus grand en terme de valeur absolue.

-6 donnera donc -10 et non -5

Ah ok,
Pas besoin donc du sgn dans la fonction mod

Code:

1
2
3
Public Function RoundSup(ByVal Nbre As Double, ByVal Multi As Integer)
RoundSup = IIf(Nbre Mod Multi = 0, Nbre, Multi * Sgn(Nbre) * (1 + Abs(Nbre) \ Multi))
End Function

Et Dieu créa....!
Il y a plus simple hélas!
Code:

1 2 3 Public Function RoundSup(ByVal Nbre As Double, ByVal Multi As Integer) RoundSup = Multi * Application.RoundUp(Nbre / Multi, 0) End Function
Ou bien
Directement

Citation:

=5*ARRONDI.SUP(A1/5;0)