XL 2016 Calculer la somme des nombres négatifs et positifs à chaque changement

Dadi147 à dit:

Comment puis-je obtenir la somme des valeurs négatives et positives à chaque changement dans une cellule indépendante

....pour finalement obtenir la somme des nombres négatifs dans M2 et la somme des nombres positifs dans la cellule G2

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$2" Then
        Application.EnableEvents = False
        [g2] = [g2] + Target
        If Target < 0 Then [m2] = [m2] + Target
        [e2].ClearContents
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$2" Then
        Application.EnableEvents = False
        If Target < 0 Then [m2] = [m2] + Target Else [g2] = [g2] + Target
        [e2].ClearContents
        Application.EnableEvents = True
    End If
End Sub

Jacky67 à dit:

Bonjour
Pour ce qui est démontré ici ==> E2= - 5 ......G2= 6 .....M2= -6
Le code pourrait ressembler à ceci
Mais G2 aura la somme des positifs - la somme des négatifs

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$2" Then
        Application.EnableEvents = False
        [g2] = [g2] + Target
        If Target < 0 Then [m2] = [m2] + Target
        [e2].ClearContents
        Application.EnableEvents = True
    End If
End Sub

'***si l'on veut en G2 que la somme des positifs et en M2 que la somme des négatifs**

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$2" Then
        Application.EnableEvents = False
        If Target < 0 Then [m2] = [m2] + Target Else [g2] = [g2] + Target
        [e2].ClearContents
        Application.EnableEvents = True
    End If
End Sub

Cliquez pour agrandir...

Dadi147 à dit:

Merci. Désolé, je n'ai pas bien transmis l'idée. Comment puis-je comprendre chaque changement, qu'il soit positif ou négatif ? Il est basé sur la somme des valeurs positives dans la cellule g2
et la somme des valeurs négatives à chaque changement de cellule m2
Le premier changement était de 10 à 13................. Donc la différence est de 3 points positifs

Le deuxième changement était de 13 à 9, donc la différence est de 4 points dans le négatif

Le troisième changement est de 9 à 16 ................ Donc la différence est de 7 points positivement

Le quatrième changement est de 16 à 7 ................... donc la différence est de 9 points dans le négatif

Donc, la somme totale de la valeur positive est 10

Le total général de la valeur négative est 13

Bien sûr, chaque changement qui se produit, qu'il soit positif ou négatif, est ajouté au total positif des valeurs positives ou négatif des valeurs négatives.

Cliquez pour agrandir...

Dim Tmp&
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$2" Then
        Application.EnableEvents = False
        If Target < Tmp Then
            [m2] = [m2] + Tmp - Target
        Else
            [g2] = [g2] + Target - Tmp
        End If
        Tmp = Target
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$E$2" Then Tmp = Target
End Sub

Dadi147 à dit:

Bonjour puis-je avoir des suggestions....


Merci. Désolé, je n'ai pas bien transmis l'idée. Comment puis-je comprendre chaque changement, qu'il soit positif ou négatif ? Il est basé sur la somme des valeurs positives dans la cellule g2
et la somme des valeurs négatives à chaque changement de cellule m2
Le premier changement était de 10 à 13................. Donc la différence est de 3 points positifs
Le deuxième changement était de 13 à 9, donc la différence est de 4 points dans le négatif
Le troisième changement est de 9 à 16 ................ Donc la différence est de 7 points positivement
Le quatrième changement est de 16 à 7 ................... donc la différence est de 9 points dans le négatif
Donc, la somme totale de la valeur positive est 10
Le total général de la valeur négative est 13
Bien sûr, chaque changement qui se produit, qu'il soit positif ou négatif, est ajouté au total positif des valeurs positives ou négatif des valeurs négatives.

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Le code du post#4 n'est pas une suggestion ?
A t'il été tester ?
Ne donne t'il pas le résultat escompté ?

Cliquez pour agrandir...

Dadi147 à dit:

Oui, il a été testé et ne répond pas aux exigences ........Je veux obtenir la somme totale des différences entre les valeurs saisies dans la cellule E2
Le premier changement était de 10 à 13................. Donc la différence est de 3 points positifs

Le deuxième changement était de 13 à 9, donc la différence est de 4 points dans le négatif

Le troisième changement est de 9 à 16 ................ Donc la différence est de 7 points positivement

Le quatrième changement est de 16 à 7 ................... donc la différence est de 9 points dans le négatif

Donc la somme totale de la valeur positive est 10

Le total général de la valeur négative est 13

Bien sûr, chaque changement qui se produit, qu'il soit positif ou négatif, est ajouté au total positif des valeurs positives ou négatif des valeurs négatives.

Cliquez pour agrandir...

AtTheOne à dit:

Bonjour à toutes & à tous, bonjour @Dadi147
Comme d'habitude, ma réponse arrive un peu tard (je suis souvent distrait en cours de réponse)
Ma solution ressemble beaucoup à celle de @Jacky67 (qui fonctionne) mais en passant par un nom pour archiver l'ancienne valeur de E2
Ce Nom est au départ

OldVal

=0

Le code de l'onglet feuil1 est

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = Me.[E2].Address Then
          Ecart = Target.Value - Me.[OldVal]
          Me.Names("OldVal").RefersTo = 0 + Target.Value
          Select Case Ecart
               Case Is > 0
                    Me.[G2] = Me.[G2] + Ecart
               Case Is < 0
                    Me.[M2] = Me.[M2] - Ecart
               Case 0
                    'Rien
          End Select
     End If
End Sub

voir PJ
Amicalement
Alain
PS merci quand un post répond à la question posée, de le marquer comme solution.

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Hello AtTheOne, meilleurs vœux
Autre version

Cliquez pour agrandir...

AtTheOne à dit:

Re ...
@Dadi147, quelles sont tes conditions initiales ?

Si G2 et M2 sont vides au départ pas de problème. Mais lorsque l'on ferme le classeur et qu'on le rouvre, faut-il effacer ces deux cellules et recommencer un nouveau contrôle ou poursuivre avec les anciennes valeurs de G2 et M2 (ce qui implique une remise à zéro lors de l'ouverture du fichier).

Pour les contrôles à partir d'un seuil, est-ce-que, si le cumul de plusieurs valeurs inférieures à ce seuil se suivent, il faut tenir compte du cumul de ces valeurs
Par exemple deux ecarts de +2 successifs entraînent un contrôle (2+2 >3) ?
Amicalement
Alain

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Hello AtTheOne, meilleurs vœux
Autre version

Cliquez pour agrandir...