Contenu récent par hema300

HY a-t-il quelqu'un ici pour vous aider, s'il vous plaît ? Si nous supposons qu'il y a 20 cartons dans l'entrepôt principal pour le produit 1 et que 5 cartons sont transférés, le solde de l'entrepôt principal sera de (15) cartons. Quant au magasin 1, il y a une quantité de 8 cartons pour le...

Bonjour J'ai conçu un logiciel d'entrepôt L'idée de ce programme est de transférer la quantité entre les magasins Et j'ai exporté les données vers la feuille Mvts Cependant, il ne met pas à jour ni ne transfère la quantité de stock entre les magasins. Dans la fiche Stock Il est possible de créer...

Private Sub MajInventaire() Dim QS&, n&

Sheets("Stock").Range("d" & Me.CB_Pièce.ListIndex + 4) = Sheets("Stock").Range("d" & Me.ComboBox2.ListIndex + 4) + Me.Quantitetr.Value Sheets("Stock").Range("d" & Me.CB_Pièce.ListIndex + 4) = Sheets("Stock").Range("d" & Me.ComboBox1.ListIndex + 4) - Me.Quantitetr.Value Le...

Bonjour Le formulaire fonctionne bien Cependant, la quantité en stock ne met pas à jour l'état du stock Vous constaterez que lors du transfert de l'inventaire entre les entrepôts, il transfère les données et ne met pas à jour l'inventaire. (Transfert de stock entre entrepôts)

Ce code a été développé, mais il y a un problème : la quantité transférée entre entrepôts ne fonctionne pas en Feuil8(.Inventaire)

Private Sub MajInventaire() Dim QS&, n&, v With Worksheets("Inventaire") flgAdd = 0 n = UBound(TblInv): lgS = 0: lgD = 0 GetLig ComboBox1, n, lgS: If lgS = 0 Then Exit Sub GetLig ComboBox2, n, lgD: If lgD > 0 Then flgAdd = 1 If lgD = 0 Then flgAdd = 0...

Le code est différent de usf transférer Profitez-en pour le développer Zone de liste ajoutée Dans les usf transférer1 Il s'agit de convertir un grand nombre de données via une listbox

Private Sub MajInventaire() Dim QS&, n&, v With Worksheets("Inventaire") flgAdd = 0 n = UBound(TblInv): lgS = 0: lgD = 0 GetLig ComboBox1, n, lgS: If lgS = 0 Then Exit Sub GetLig ComboBox2, n, lgD: If lgD > 0 Then flgAdd = 1 If lgD = 0 Then flgAdd = 0...

Bonjour Quelqu'un peut-il m'aider s'il vous plaît Il existe un transfert de formulaire utilisateur1 En raison du grand nombre de catégories, j'ai ajouté listbox1 au formulaire Lorsque les données sont transférées vers la listbox, cela fonctionne correctement, mais lorsqu'elles sont...

Bonjour Y a-t-il quelqu'un qui puisse m'aider si le temps le permet ?

Bonsoir Le transfert existe sans la list box J'ai ajouté une zone de liste Transfert1 Lorsqu'il est ajouté à la liste, cela fonctionne avec succès Cependant, il existe un problème car la quantité n'est pas conservée dans la feuille et la quantité n'est pas non plus déduite du magasin pour...

Sub Cod_Sereal_Number() On Error Resume Next Set ww = Application.WorksheetFunction ThisWorkbook.Activate Dim old_name, new_name old_name = Me.ComboBox1.Value new_name = Me.TextBox1.Value fda = ww.CountIf(Sheet2.Range("b2:b2000"), old_name) If fda <= 0 Then: MsgBox "The invoice type is not...