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

Ludo1977 · 28 Juillet 2022

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.

Phil69970 · 28 Juillet 2022

Bonjour @Ludo1977 , @Eric C

Edit : Bonjour @JHA

Je te propose :

Exemple en A5
=-SOMME(A1:A4)

Merci de ton retour

@Phil69970

Eric C · 28 Juillet 2022

Bonjour le forum
Bonjour Ludo1977

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

VB:

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 · 28 Juillet 2022

Bonjour à tous,

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

JHA

Phil69970 · 28 Juillet 2022

Bonjour @Ludo1977 , @Eric C

Edit : Bonjour @JHA

Je te propose :

Exemple en A5
=-SOMME(A1:A4)

Merci de ton retour

@Phil69970

Ludo1977 · 28 Juillet 2022

Phil69970 à dit:
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 · 28 Juillet 2022

Phil69970 à dit:
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 · 28 Juillet 2022

Eric C à dit:
Bonjour le forum
Bonjour Ludo1977

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

VB:

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

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

Ludo1977

XLDnaute Nouveau

Phil69970

Eric C

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Ludo1977

XLDnaute Nouveau

Ludo1977

XLDnaute Nouveau

Ludo1977

XLDnaute Nouveau

Discussions similaires