Re : Format personnalisés Monétaire avec ou sans virgule
Bonjour à tous,
Avec un bout de code :
VB:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A1:A50")) Is Nothing Then Exit Sub
Target.NumberFormat = IIf(Target.Value = Int(Target.Value), "# ##0 €", "# ##0.00 €")
End Sub