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

[frelon71]

Bonjour, voila j'aimerais que quand je met une date d'entrée sa me met la quantité en + et quand je met la date de sortie mettre la quantité - en sortie, et aussi que je marque poulet ou escargot congel a sa me l'ajoute dans le bon congel et bonne case a droit pour le total, croyez vous que cela est possible merci

 

[job75]

Bonsoir frelon71, bienvenue sur XLD,

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

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target.EntireRow, [C:E], UsedRange.EntireRow)
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+

 

[frelon71]

Bonsoir frelon71, bienvenue sur XLD,

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

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+

Bonjour est ce possible en formule car c'est pour le travail et je ne peux pas prendre de fichier extérieur ni internet.

 

[job75]

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 :

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

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

A+

 

[frelon71]

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 :

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

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

A+

Merci je vais tester sa

 

[frelon71]

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 :

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

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

A+

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

 

[frelon71]

Chat gpt ma fait sa vous en pensez quoi?

 

[job75]

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

Je ne vois pas le rapport avec le problème posé.

 

[OKBI]

Bonjour,

Un essai par formule
Cdt

 

[frelon71]

Bonjour,

Un essai par formule
Cdt

Trop complexe j'ai fais sa grace a chat gpt et sa fonctionne bien