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

Phil69970 à dit:

Bonjour @Ludo1977 , @Eric C

Edit : Bonjour @JHA

Je te propose :
Regarde la pièce jointe 1146323



Merci de ton retour

@Phil69970

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @Ludo1977 , @Eric C

Edit : Bonjour @JHA

Je te propose :
Regarde la pièce jointe 1146323



Merci de ton retour

@Phil69970

Cliquez pour agrandir...

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

Cliquez pour agrandir...