Bonjour
J'essaie de créer un format de cellule arrondissant le nombre de la cellule à l'euro superieur.
Est-ce possible ou faut-i créer une macro ?
Merci d'avance
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Or Not IsNumeric(Target) Then Exit Sub
Target = Application.RoundUp(Target, 0)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Or Not IsNumeric(Target) Then Exit Sub
[COLOR="Red"]Application.EnableEvents = False[/COLOR]
Target = Application.RoundUp(Target, 0)
[COLOR="Red"]Application.EnableEvents = True[/COLOR]
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Target = WorksheetFunction.RoundUp(Target, 0)
End Sub