Nombres deviennent négatifs si condition est vrai

Bonjour à tous et à toutes,

Je viens vers vous car j'ai du mal à trouver une solution à mon problème, afin d'éviter de créer de multiples colonnes, je voudrais faire en sorte que dans ma colonne en "H" je puisse introduire mes saisies, qui par défaut sont tous des nombres positifs.

Mais je voudrais que si dans la même ligne, en colonne "D", les textes "Paiement" ou "Achat" y figurent, alors en colonne "D" les nombre deviennent négatifs.

Je ne peut pas mettre de formules en Colonne "D", donc j'ai pensé à un code VBA, mais mes lacunes en la matière m'empêchent à trouver la solution.

Merci d'avance pour vos lumières. Ci-joint le fichier exemple.

Bonsoir,

Toutes les données présentes viennent d'une exportation ?

Bonjour,
Un début de réponse pour le principe.
A adapter et à optimiser !?
Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Price As Double

    On Error GoTo err_Handler

    If Not Intersect(Target, Me.Range("D4:D51,H4:H51")) Is Nothing And Target.CountLarge = 1 Then
        If Target.Column = 4 Or Target.Column = 8 Then
            Application.EnableEvents = False
            Price = Me.Cells(Target.Row, 8).Value
            Select Case Target.Column
                Case 4:
                    Select Case Target.Value
                        Case "Achat", "Paiement":
                            If Price > 0 Then Target.Offset(, 4).Value = -Price
                        Case Else:
                    End Select
                Case 8:
                    Select Case Target.Offset(, -4)
                        Case "Achat", "Paiement":
                            If Price > 0 Then Target.Value = -Price
                        Case Else:
                    End Select
            End Select
        End If
    End If

exit_Handler:
    Application.EnableEvents = True
    Exit Sub
err_Handler:
    Resume exit_Handler
End Sub

Merci Jean-Eric,

Il me semble que ça peut très bien me convenir, mais comme je ne connais pas grand chose en VBA, il est clair qu'il ne me suffit pas de créer un module et copier ton Code dedans !

J'ai essayé mais ça ne fonctionne pas... Si tu pourrais m'éclaircir. Merci d'avance pour ta patience.

Bonsoir,

Toutes les données présentes viennent d'une exportation ?

A JB_ non, tout est saisi au fur et à mesure dans le mois / de l'année.

Re-salut Jean-Eric,

Je viens de trouver comment il faut faire: Je suis allé dans VBAProject Excel Objets / Feuil1 (Comptes_2022) et j'y ai collé ton texte,

et boum ça fonctionne à merveille.

Un grand BRAVO pour ton aide et ta rapidité.

Bonne fêtes à tous ceux du Forum, vous êtes fantastiques.

Re,
Bonnes fêtes, aussi
Cdlt.

Bonjour,

Sinon autre solution sans VBA, avec les MFC pour mettre le signe - devant la valeur, et la formule du total qui devient

=$H$2+SOMME($H$4:$H$51)-SOMME.SI($D$4:$D$51;"Paiement";$H$4:$H$51)-SOMME.SI($D$4:$D$51;"Achat";$H$4:$H$51)

Cdlt

Merci Arturo,

Ta solution marche parfaitement, mais comme je suis un cancre en la matière, peux-tu me dire ou se situe la formule, afin que je comprenne si jamais je dois y apporter des changements majeurs. Merci d'avance et bravo pour ta solution

Si la la formule du total ,c'est à la place de celle existante en H52

si c'est pour les MFC:

Merci Arturo,

Là je viens de comprendre, ... mais je n'aurait pas pu trouver tout seul la commande.

Encore une fois merci, ça fait plaisir de voir qu'il y a vraiment des amoureux d'Excel ici, et surtout de pouvoir compter sur vos lumières.

Bonnes fêtes