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 .
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 .
VB:
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
Dernière édition: