Macro pour quantité par colis

Bonjour,

Je fais appel à vous pour un cas dans Excel que je n'arrive pas à résoudre.

J'ai ce fichier Excel à remplir en pièce jointe. Les colonnes de A à I correspondent à mon fichier d'origine.

et il faut que j'arrive à remplir automatiquement via une macro si possible la colonne I.

J'ai mis le résultat attendu dans la colonne M mais qui devra être mis dans le colonne I.

J'ai tenté de donner les explications dans le fichier Excel mais je suis pas sûre d'être très claire donc si vous avez besoin de plus de précisions je reste à votre écoute.

Si vous arrivez à me démêler ça vous êtes super fort(e) !

Merci d'avance pour votre investissement.

Stéphanie

Bonjour

solution via une macro

Sub aargh()
    With Sheets("PSN Request")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 6 To dl
            .Cells(i, "I") = 0
            If .Cells(i, "G") <> 0 Then
                sp = Application.WorksheetFunction.SumIf(.Cells(6, "D").Resize(i - 5), .Cells(i, "D"), .Cells(6, "I").Resize(i - 5))
                sr = Application.WorksheetFunction.SumIf(.Cells(6, "A").Resize(i - 5), .Cells(i, "A"), .Cells(6, "I").Resize(i - 5))
                If sp = 0 And sr = 0 Then .Cells(i, "I") = .Cells(i, "G")
            End If
        Next i
    End With
End Sub

solution avec formules

à mettre en i6

=SI(G6<>0;G6;0)

à mettre en I7 et à copier vers le bas

=SI(SOMME.SI(A$6:A6;A7;I$6:I6)+SOMME.SI(D$6:D6;D7;I$6:I6)=0;G7;0)

Merci ! la macro est parfaite.

Merci beaucoup.

Bien Cordialement

Stéphanie