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

Source: grepper.com

Similar codes

3 votes186 views1 answer
Excel vba read registry key value
VBA
1 vote194 views1 answer
Vba optional
VBA
1 vote185 views1 answer
Vba delete array element
VBA
-1 vote203 views1 answer
VBA check if a cell contains a letter or string
VBA
3 votes240 views1 answer
Vba post request json
VBA
0 vote212 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote207 views1 answer
Vba file chooser
VBA
1 vote206 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
0 vote195 views1 answer
Vba leading zeros in string
VBA
18 votes276 views3 answers
Excel-vba make integer
VBA