Je veux que lorsque je choisis un magasin et un code produit, la valeur du stocker vienne à la date la plus basse
Cela est dû à la vente de la date la plus ancienne puis de la suivante la plus récente dans le cas de la
cellule D4:D20, puisque les dates sont différentes en raison des quantités d'achat multiples dans les cellules I4:I20.
A= CB_Pièce ( 100 )
E= ComboBox1 ( magasin )
D= STOCKER ( 149 & 10 )
i = Textbox1 date (01/01/2024 & 01/05/2024 )
La condition doit être remplie
Date minimum et stock pour le produit et le code magasin
comme ça
A= CB_Pièce ( 100 )
E= ComboBox1 ( magasin )
D= STOCKER ( 10 )
i = Textbox1 date (01/01/2024 )
C'est par choix
CB_Pièce ( 100 ,101,102,103......
ComboBox1 ( magasin ,magasin1,magasin2,magasin,.....
Lorsque la limite de commande atteint zéro, elle passe à la deuxième quantité et la date suivante est le 01/05/2024
J'espère avoir répondu à ma demande et je vous serais reconnaissant de m'aider
Private Sub CB_Pièce_Change()
Sheets("Stock").Activate
On Error Resume Next
'ComboBox2.Clear
Me.stocktr.Enabled = False
Quantitetr = ""
catetr = "": stocktr = "": TextBox1 = ""
With ComboBox1
' .Clear
If CB_Pièce = "Entrez le code produit" Then
.AddItem "Du magasin": .ListIndex = 0: Exit Sub
End If
Dim i&
For i = 1 To UBound(TblInv)
If TblInv(i, 1) = CB_Pièce.Text Then
.AddItem TblInv(i, 5)
If catetr = "" Then catetr.Text = TblInv(i, 2)
If stocktr = "" Then stocktr = TblInv(i, 4)
If Me.OptionButton1 = True Then
If TextBox1 = "" Then TextBox1 = ""
ElseIf Me.OptionButton2 = True Then
If TextBox1 = "" Then TextBox1 = Format(TblInv(i, 9), "DD/MM/YYYY")
End If
End If
Next i
.ListIndex = 0
End With
Me.stocktr.Enabled = False
Quantitetr.SetFocus
End Sub
[CODE]Private Sub MajStkProv()
Dim i&
For i = 1 To UBound(TblInv)
If TblInv(i, 1) = CB_Pièce.Text Then
If TblInv(i, 5) = ComboBox1 Then
stocktr = TblInv(i, 4)
Exit For
Else: stocktr = 0
End If
End If
Next i
End Sub