Arrondir à 0 ou 5

Bonjour,

J'ai une colonne avec des chiffres, que j'aimerai arrondir pour qu'il finisse par 0 où 5.

Exemple:

1232,1

par

1230

554,3

par

555

merci

Bonjour,

En A1 1231,10, en B1

=ARRONDI.AU.MULTIPLE(A1;5)

Cdlt

Bonjour,

essayes ça :

=PLAFOND(C40;5)

avec "C40" la cellule où tu as la valeur a arrondir,

"5" pour la valeur à laquelle tu veux arrondir (1 pour arrondir à l'entier supérieur...10 pour arrondir a la 10aine supérieure)

et cette formule

=PLANCHER(C40;1)

pour arrondir à l'entier inférieur (qui fonctionne +/- comme =PLAFOND)

merci, et en vba, vous savez quelle est la fonction?

merci

Bonjour, Salut à tous,

édit Raja : pas adapté à la demande donc supprimé.

Re,

Un exemple avec une fonction personnalisée.

Public Function Arrondi_multiple(Cel, Optional d) As Double
    If IsEmpty(Cel) Then Exit Function
    If IsMissing(d) Then
        Arrondi_multiple = Cel
        Exit Function
    End If
    Arrondi_multiple = Application.WorksheetFunction.MRound(Cel, d)
End Function

Re, Re

Ou encore

int(Nombre / multiple) * multiple

Cdlt

merci à vous, vos contributions m'ont aidé, j'ai aussi bossé un peu, voici mon code final:

PS: le '> 100' c'est perso

Sub arrondir50()
Dim dernligne As Integer
Dim i As Integer

On Error GoTo ErrorHandler

dernligne = Range("C1048576").End(xlUp).Row

For i = 20 To dernligne
    If Not IsEmpty(Range("C" & i)) And Range("C" & i) > 100 Then
    Range("C" & i) = Round((Range("C" & i)) / 5) * 5
    End If
Next i

Columns("C:C").NumberFormat = "0"

Exit Sub

ErrorHandler:
MsgBox Err.Number & vbLf & Err.Description
End Sub