Arrondi Inf sur toute une colonne ?

Bonjour,

je cherche a faire un arrondi inf sur toutes les cases d'une colonne en meme temps ?

merci beaucoup

mike

Bonjour,

Ben tu fais l'arrondi sur une cellule puis tu recopies cette formule vers le bas avec la poignée de recopie.

Amicalement

Bonsoir

Sur une plage nommée MaPlage

Option Explicit
'Code Amadéus 25 mai 2010
Sub Modifie()
Dim MaCellule As Object, MonNombre As Integer
For Each MaCellule In Range("MaPlage")
MonNombre = MaCellule.Value
If (MaCellule.Value - Int(MaCellule.Value)) > 0.5 Then
MaCellule.Value = CInt(Int(MonNombre - 0.5))
Else: MaCellule.Value = CInt(Int(MonNombre))
End If
Next MaCellule
End Sub

Cordialement

merci !