Remise sur quantité par rapport au stock

Le 09/04/2024 à 11:44

25copy-of-copy-of-quantite-transferee-4.xlsm (171.72 Ko)

Private Sub MajInventaire()
Dim v As Integer

With Worksheets("Inventaire")

    lgD = .Cells(Rows.Count, 1).End(xlUp).Row + 1

    For v = 0 To ListBox1.ListCount - 1
        With .Cells(lgD, 3)
            If flgAdd = 0 Then
                .Offset(, -2) = ListBox1.List(v, 1) 'Code article
                .Offset(, -1) = ListBox1.List(v, 4) 'Catégorie
                .Offset(, 2) = ListBox1.List(v, 5) 'Seuil d'alerte
                .Offset(, 3) = ListBox1.List(v, 6) 'Descriptif
                .Offset(, 4) = ListBox1.List(v, 7) 'Référence
                .Offset(, 5) = ListBox1.List(v, 8) 'Unité de mesure
                .Offset(, 6) = "Transfert"         'Observations
                .Offset(, 9) = ComboBox2           'Magasin
                QD = Val(.Value) + QT: .Value = QD  'Stock actuel
             Else
                .Offset(, 7) = .Offset(, 7) + ListBox1.List(v, 9)
             End If
             lgT = lgT + 1
        End With
        .Protect
    Next v
End With
End Sub

Bonjour
Il n'est pas possible de déduire la quantité produite pour l'entrepôt d'où elle est sortie
Quel est le problème avec ce code ?

Le 15/04/2024 à 01:00

Bonsoir Y a-t-il quelqu'un qui peut m'aider s'il vous plaît ?

Le 16/04/2024 à 13:19

S'il vous plaît, y a-t-il une solution ?

Y a-t-il quelqu'un qui puisse m'aider, s'il vous plaît ?

Le 16/04/2024 à 16:00

Bonjour

Pour bien cimprendre un code, il est plus facile de le faire tourner sur le fichier auquel il est associé.

Or, tu ne l'as pas joint.

Donc...

Bye !