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

0 vote293 views1 answer
How to use if condition in time vba
VBA
0 vote314 views1 answer
Excel vba unmerge sheet
VBA
0 vote317 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote267 views1 answer
Excel vba milliseconds
VBA
1 vote297 views1 answer
VBA Loop through recordset
VBA
0 vote281 views1 answer
Vb net dgv doesn't keep currency format
VBA
0 vote314 views2 answers
Vb.net include quotes in string
VBA
0 vote298 views1 answer
.net crash app
VBA
0 vote305 views1 answer
Vba parameter adodb null value
VBA
31 votes390 views1 answer
Vba how to convert a column number into an Excel column
VBA