Négatif en positif et ajouter si

bonjour,

une demande un peu compliqué .. je souhaiterais si il y a un nombre négatif en colonne F devienne positif ET que ce nombre soit ajouté a toutes les cellules des articles identiques à partir de la ligne du dessous en colonne D.

en Jaune la colonne à modifier , en vert le résultat souhaité.

merci d'avance

cordialement

bonjour,

une proposition

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl
            If .Cells(i, "F") < 0 Then
                m = m - .Cells(i, "F")
                prod = .Cells(i, 2)
            Else
                If m > 0 Then
                    If .Cells(i, 2) = prod Then
                        .Cells(i, "E") = .Cells(i, "D") + m
                    Else
                        m = 0
                    End If
                End If
            End If
        Next i
    End With
End Sub

La macro se base sur le nom d'article et non sur le code article pour déterminer s'il s'agit du même article.

La macro traite également 2 nombres négatifs ou plus pour un même article.

comme à chaque fois c'est nickel !!!!

un grand merci à toi

j'ai parlé un peu trop vite , cela marche mais toutes les cellules ne sont pas remplis (les rouges) dans l'exemple ci dessous

si quelqu'un à une idée

merci d'avance

cordialement

bonjour,

code adapté

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl
            If m > 0 Then
                If .Cells(i, 2) = prod Then
                    .Cells(i, "E") = .Cells(i, "D") + m
                Else
                    m = 0
                End If
            End If
            If .Cells(i, "F") < 0 Then
                m = m - .Cells(i, "F")
                prod = .Cells(i, 2)
            End If
        Next i
    End With
End Sub

j'ai bien essayé cette fois et cela roule ,

merci encore