excfl
XLDnaute Barbatruc
Bonsoir le forum,
Ce code arrondi bien à la centaine supérieure.
Mais génère ce code d'erreur :
Merci d'avance pour votre aide.
excfl
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:B10]) Is Nothing Then Exit Sub
If Not (IsNumeric(Target.Value)) Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.Value = Application.WorksheetFunction.RoundUp(Target.Value, -2)
End Sub
Mais génère ce code d'erreur :
Merci d'avance pour votre aide.
excfl