Supprimer une quantité pour un produit récurrent ou une condition de magasi

Bonsoir

Il se compose d'un code produit, du nom du magasin, de la quantité et de différentes dates d'expiration.

Il y a un code en double dans le dossier de travail, qui est 100, avec un numéro de magasin, une quantité différente et une validité différen

Ce qu'il faut, c'est supprimer le code article en double avec le magasin A et l'autre validité à son arrivéete

Par exemple
Item code, stock price, store name, expiry date
100 Product 50 12 magazines 01/05/2024
100 Product 50 26 magazines 01/01/2024
Je veux que lorsque le stock atteint zéro dans cet entrepôt, il soit complètement supprimé en raison des multiples autorisations
"Remarque : la quantité de produit pour ce magasin est appelée pour la première expiration, puis la suivante lorsque le produit est nul."
Cependant, si la période de validité a été effacée et qu'il n'y a pas d'autre article pour ce magasin, alors il ne doit pas être supprimé, et il suffit que le stock soit nul jusqu'à ce que les achats y soient inscrits selon le fournisseur.
Ceci est une explication de ce qui doit être mis en œuvre, avec votre aide et votre gentillesse.
Item code, stock price, store name, expiry date
100 Product 50 12 magazines 01/05/2024
100 Product 50 26 magazines 01/01/2024
Required
100 Product 50 26 magazines 01/01/2024
Lorsque cette quantité siffle, elle est supprimée complètement
100 Produit 50 12 magazines 01/05/2024
Lorsque cette quantité est nulle, il ne la stocke pas complètement, car ce produit ne sera pas dupliqué dans ce magasin
C'est pour clarifier

Item code, stock price, store name, expiry date
100 Product 50 0 magazine 01/05/2024
Parce que le processus actuel le supprime désormais complètement lorsque la quantité est nulle, je trouve que ce magasin avec le nom du produit n'est pas en stock
Cette liste de contrôle (stock) est destinée aux magasins et aux produits avec des soldes, même si la quantité est nulle, si elle n'est pas récurrente, et si elle est récurrente, elle la supprimera et elle restera dans le magasin avec le produit seul, sans répétition .

Set fa = Sheets("Stock")
With Feuil1
Uf = fa.Range("A" & Rows.Count).End(xlUp).Row
For i = 0 To ListBox1.ListCount - 1
For J = 2 To Uf
If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 Then
      If Me.OptionButton1 = True Or Me.OptionButton2 = True Then
        dat_bon = .Cells(J, 9)
        If dat_bon < dat Then
        dat_bon = dat
        End If
      End If
End If
Next J
Next i
For i = 0 To ListBox1.ListCount - 1
For J = 2 To Uf
If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 And .Cells(J, 9) = dat_bon Then
      If Me.OptionButton1 = True Then
        .Cells(J, 4) = .Cells(J, 4) + Val(ListBox1.List(i, 2))
        .Cells(J, 6) = .Cells(J, 6) + Val(ListBox1.List(i, 2))
                        Stock_check = Application.WorksheetFunction.CountIf(fa.Range("E4:E" & Uf), ComboBox1) > 1
                        Product_check = Application.WorksheetFunction.CountIf(fa.Range("A4:A" & Uf), .Cells(J, 1)) > 1
                        If (fa.Cells(J, 4).value) = 0 And Stock_check = True And Product_check = True Then
                            fa.Cells(J, 4).EntireRow.Delete
                        End If
      ElseIf Me.OptionButton2 = True Then
        .Cells(J, 4) = .Cells(J, 4) - Val(ListBox1.List(i, 2))
        .Cells(J, 7) = .Cells(J, 7) + Val(ListBox1.List(i, 2))
                        Stock_check = Application.WorksheetFunction.CountIf(fa.Range("E4:E" & Uf), ComboBox1) > 1
                        Product_check = Application.WorksheetFunction.CountIf(fa.Range("A4:A" & Uf), .Cells(J, 1)) > 1
                        If (fa.Cells(J, 4).value) = 0 And Stock_check = True And Product_check = True Then
                            fa.Cells(J, 4).EntireRow.Delete
                        End If
      End If
 End If
Next J
Next i
End With

Bonjour mody,

Sauf erreur de ma part, vous avez posé cette question sur un autre forum

Cela s'appelle du CROSS POSTING et la charte de ce forum l'interdit

• Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).