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

4 votes322 views1 answer
Excel vba check cell not empty
VBA
0 vote345 views1 answer
Vba listbox remove all items
VBA
1 vote328 views1 answer
Change the first item in a queue vb.net
VBA
0 vote315 views1 answer
Vba file size
VBA
0 vote333 views1 answer
VB get external IP address
VBA
12 votes456 views1 answer
Excel vba write string to text file
VBA
2 votes317 views2 answers
Constructor vb.net
VBA
1 vote318 views1 answer
Excel vba close form escape key
VBA
0 vote346 views1 answer
Vba run command
VBA
0 vote350 views1 answer
Add text to Shape VBA
VBA