Définir une plage de cellule comme valeur négative

Bonjour

saisir un format de cellule personnalisé
-# ##0,00

cdlt

Bonjour,

C'est-à-dire même si on met une valeur positive celle-ci devient négative.

@Frenchie83 : Ce n'est pas parce que l'affichage, par le truchement d'un format spécifique, montre une valeur négative que la cellule contient une valeur négative (il suffit d'employer cette valeur dans une formule pour le constater).

Transformer une ou plusieurs valeurs positives saisies, en valeurs négatives ne peut être fait que par macro !
Par exemple (à adapter) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim cel As Range
  'Plage concernée
  Set rng = Range("B12:E20")
  'Plage à modifier
  Set rng = Intersect(rng, Target)
  If rng Is Nothing Then Exit Sub
  For Each cel In rng.Cells
    If IsNumeric(cel.Value) Then
      If cel.Value > 0 Then cel.Value = -cel.Value
    End If
  Next cel
End Sub

Cette macro s'applique aussi bien à une saisie de valeur unique qu'à une saisie matricielle de valeurs (avec Maj+Ctrl+Entrée), mais pas à la saisie de formule matricielle.