excel vba arrondir
Function RoundTo(pNumber As Long, pFactor As Long)
RoundTo = Round(pNumber / pFactor) * pFactor
End Function
' ---------------------------------------------------------------
Sub TestMe()
Debug.Print RoundTo(2543, 10) ' => 2540
Debug.Print RoundTo(2546, 10) ' => 2550
End Sub