XL 2016 cellules auto négative sans mettre le signe moins

[Ludo1977]

Bonjour,
Je désire pouvoir entrain des données négatives sans avoir à mettre le signe "-" dans une suite de cellules continues.
Cela est-il possible, sachant que c'est sur une sélection de cellules d'une même colonne et en continues (environ 15 cellules uniquement)?
Merci de vos retours.

 

[Eric C]

Bonjour le forum
Bonjour Ludo1977

Code à placer dans ta feuille (Exemple pour les cellules A1:A15 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A15")) Is Nothing Then
If IsNumeric(Target) Then
 Target = IIf(Target > 0, Target * -1, Target)
End If
End If
End Sub

Bonne fin d'après-midi à toutes & à tous
@+ Eric c

 

[JHA]

Bonjour à tous,

Je ne comprends pas ta demande, peux-tu nous éclairer?

JHA

 

[Phil69970]

Bonjour @Ludo1977 , @Eric C

Edit : Bonjour @JHA

Je te propose :

Exemple en A5
=-SOMME(A1:A4)

Merci de ton retour

@Phil69970

 

[Ludo1977]

Bonjour @Ludo1977 , @Eric C

Edit : Bonjour @JHA

Je te propose :
Regarde la pièce jointe 1146323



Merci de ton retour

@Phil69970

Cette formule me convient parfaitement. Elle est très facile

 

[Ludo1977]

Bonjour @Ludo1977 , @Eric C

Edit : Bonjour @JHA

Je te propose :
Regarde la pièce jointe 1146323



Merci de ton retour

@Phil69970

Ce n'est pas comme cela que je voyais les choses mais c'est bien plus simple.
Merci

 

[Ludo1977]

Bonjour le forum
Bonjour Ludo1977

Code à placer dans ta feuille (Exemple pour les cellules A1:A15 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A15")) Is Nothing Then
If IsNumeric(Target) Then
 Target = IIf(Target > 0, Target * -1, Target)
End If
End If
End Sub

Bonne fin d'après-midi à toutes & à tous
@+ Eric c

Je te remercie Eric de ton retour.
C'est peut-être un peu trop compliquer pour moi. Les autres solutions me conviennent aussi.
Merci