XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions

[Mody200]

Bonjour
S'il vous plaît aidez-moi
Il y a des articles en double dans différents magasins, en raison de la quantité d'articles ayant des convenances différentes
Il y a trois feuilles
Bilan des stocks pour les entrepôts
Fiche des opérations d'achats (Entrées)
Fiche des sorties
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

 

[wDog66]

Bonjour

avec un titre en anglais que vous avez oublié de traduire semble t'il

Merci de lire ou relire la charte du forum à ce sujet

Bon WE

 

[Mody200]

Bonjour cher CROSS POSTEUR

avec un titre en anglais que vous avez oublié de traduire semble t'il

Merci de lire ou relire la charte du forum à ce sujet

Bon WE

Merci pour la note. Le titre du sujet a été traduit.
j'espère qu'il n'y a pas d'autre problème
Je voulais juste aider, s'il te plaît et gentiment

 

[Mody200]

Bonjour
Je suis bloqué, aidez-moi s'il vous plaît

 

[wDog66]

Bonjour,

Une explication ne suffit pas, sans fichier, cela va être compliqué

Ce ci dit, nous sommes dimanche, jour du seigneur et de repos ici en France

Bon dimanche

 

[Mody200]

Bonjour
Je comprends
Ceci est le fichier, aidez-moi s'il vous plaît

 

[wDog66]

Bonjour,

Désolé, je ne pourrais pas vous aider car j'ai Office 64 bits et votre fichier m'affiche une erreur dès l'ouverture

Quelqu'un d'autre certainement

 

[Mody200]

Bonsoir
Je suis coincé dans ce problème. Quelqu'un peut-il m'aider s'il vous plaît ?

 

[Mody200]

s'il vous plaît, aidez

 

[Mody200]

Exemple en bref

Par exemple

Code article, cours du stock, nom du magasin, date de péremption


100 Produit 50 26 magazines 01/01/2024
100 Produit 50 12 magazines 01/05/2024
Il existe un code d'article différent, un nom de magasin en double et une date d'expiration

Requis

Pour supprimer le doublon si la valeur d'inventaire est nulle, puis supprimez-le définitivement
Cependant, si l'autre stock est nul, il ne faut pas le supprimer car il n'est pas dupliqué puisqu'il s'agit d'un chèque stocké avec un codage de classe et une validité.
100 Produit 50 0 magazine
01/05/2024

Il y a un code qui fait ça ?