La fonction Round dans VBA est utilisée pour renvoyer un nombre arrondi.
La fonction Round
La fonction VBA Round suit la syntaxe suivante :
Round(variable,nb_decimales)
Exemple de macro avec Round
La macro
Sub nommacro()
Dim c As Range 'Variable
For Each c In Range("A1:A5") 'Plage
'Cellule actuellement sélectionnée
ActiveCell.Offset(0, 0).FormulaR1C1 = _
Round(c,1)'Cellule suivante située en bas
ActiveCell.Offset(1, 0).SelectNext c
End Sub
Les données sources
A | B | C | D | E | |
---|---|---|---|---|---|
1 | 11,973 | ||||
2 | -21,28456 | ||||
3 | -831,25 | ||||
4 | 1361,922 | ||||
5 | 0 |
Le résultat
A | B | C | D | E | |
---|---|---|---|---|---|
1 | 11,973 | 12 | |||
2 | -21,28456 | -21,3 | |||
3 | -831,25 | -831,2 | |||
4 | 1361,922 | 1361,9 | |||
5 | 0 | 0 |