Salut !
V'là une procédure qui devrai fonctionner :
Function MyRound(ByVal Number As Single, ByVal ToSup As Boolean)
If ToSup Then
If Number < 0 Then
MyRound = Fix(Number)
Else
MyRound = Int(Number) + IIf(Int(Number) <> Number, 1, 0)
End If
Else
MyRound = Int(Number)
End If
End Function
Pour avoir l'inférieur c'est resultat=MyRound(nombre,False) et le supérieur c'est resultat=MyRound(nombre,True)
On peut peut-être optimiser mais bon...

Bricomix
