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 |