XL 2019 Mettre un chiffre positif ou négatif en fonction de la case du texte

job75 à dit:

Bonsoir frelon71, bienvenue sur XLD,

Clic droit sur l'onglet de la feuille, Visualiser le code et dans VBA collez cette macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target.EntireRow, [C:E], UsedRange)
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target.Rows
    Set Target = Target.Cells
    If IsDate(Target(1)) And IsNumeric(CStr(Target(3))) Then Target(3) = Abs(Target(3))
    If IsDate(Target(2)) And IsNumeric(CStr(Target(3))) Then Target(3) = -Abs(Target(3))
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle s'exécute quand vous modifiez des valeurs dans les colonnes C D E.

A+

Cliquez pour agrandir...

job75 à dit:

Bonjour frelon71, le forum,

On ne peut pas mettre de formules en colonne E puisque vous y entrez des valeurs manuellement.

Par contre on peut en mettre en colonne F, formule en F2 à tirer vers le bas :

Code:

=SI(ESTNUM(E2);SI(ESTNUM(D2);-E2;SI(ESTNUM(C2);E2;""));"")

Formule de validation de données en colonne E : =E1>=0

A+

Cliquez pour agrandir...

job75 à dit:

Bonjour frelon71, le forum,

On ne peut pas mettre de formules en colonne E puisque vous y entrez des valeurs manuellement.

Par contre on peut en mettre en colonne F, formule en F2 à tirer vers le bas :

Code:

=SI(ESTNUM(E2);SI(ESTNUM(D2);-E2;SI(ESTNUM(C2);E2;""));"")

Formule de validation de données en colonne E : =E1>=0

A+

Cliquez pour agrandir...

frelon71 à dit:

Du coup j'ai modifier pour que cela sois plus simple pour mes chefs, mais sa complique la tache pour trouver la bonne formule

Cliquez pour agrandir...

OKBI à dit:

Bonjour,

Un essai par formule
Cdt

Cliquez pour agrandir...