Discussion :

[Rayan1]

Salut les amis.
J'ai un problème. Voici mon cas j'ai une quantité que je voulais partager dans plusieurs tables jusqu'à arrivé à la quantité voulu.
par exemple voici un tableau qui illustre mon problème.



je veux prendre la quantité 20 et distribuer dans les lignes de Qté retiré jusqu'à ce que sa va arriver à la quantité 20.

EXEMPLE:

1 Moto 8 - 8 = 12
2 Tablette 10 - 10 = 2
3 Tap 4 - 2 = 0


Avec un code VBA Biensur.

Aider moi SVp

[Zekraoui_Jakani]

Essayez ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub calcStock()
On Error GoTo errHandler
 
    Dim db As Database
    Dim rs As Recordset
    Dim QaDistribuer
 
    QaDistribuer = InputBox("Donnez la quantité à Distribuer :", "Quantité à Distribuer", 0)
    If QaDistribuer = "" Or QaDistribuer = 0 Then Exit Sub
 
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
 
    With rs
        .MoveFirst
        Do While Not .EOF
            If QaDistribuer >= !Entree Then
                .Edit
                !QteRetiree = !Entree
                !Reste = QaDistribuer - !QteRetiree
                QaDistribuer = QaDistribuer - !QteRetiree
            Else
                .Edit
                !Reste = 0
            End If
            .Update
            .MoveNext
        Loop
    End With
 
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
 
errHanderExit:
    Exit Sub
 
errHandler:
    MsgBox Error
    Resume errHanderExit
 
End Sub

[Rayan1]

Merci c'est genial

[Zekraoui_Jakani]

Pas si génial que ça! j'ai corrigé quelques erreurs en testant; voici une version mise à jour:

[Rayan1]

OK, j'ai essayé d'appliqué mais j'ai encore un problème. Peut être j'ai pas bien expliqué.
j'ai ses données

j'ai fais le cumul pour obtenir le stock initial en supprimer la partie "dtba_et" donc j'obtiens


Maintenant je voulais distribuer par exemple 7 quantité le total retrait.
exemple


Voici la table ou je doit insérer


détail table t_transf


Au niveau de typetransf_et. j'ai crée un table ou j'ai logé ses données 2 = Ajout et 3= Retrait. cela me facilité.
Je veux retirer par ses quantité dans le magasin Zaabre Daaga pour le mettre dans le magasin Ouaga . Donc je me dis qu'il faut deux enregistrements. Soustraires ces quantité dans le magasin Zaabre Daaga et les ajouter dans le magasin Ouaga.

Dans chaque enregistrement de ligne il faudra que les champs dans le table t_transf soit totalement rempli.

Voici le cas complet;

[Zekraoui_Jakani]

Si j'ai bien compris, vous êtes confronté à un problème de gestion de stock; ce serait plus simple de poster une copie compressée (zip) de votre db.

[Rayan1]

OK Voici le projet;