Discussion :

[iperkut]

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...

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[iperkut]

Parfait....

Merci !!

[iperkut]

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

[mercatog]

On va la faire marcher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[iperkut]

Je viens de voir votre réponse..

J'avais fais un truc moins propre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

-6 donnera -5 ou -10?

[iperkut]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !