Comment traiter des totaux entre les tableaux VB 6?

accent19811 Messages postés 98 Date d'inscription Statut Membre Dernière intervention -
accent19811 Messages postés 98 Date d'inscription Statut Membre Dernière intervention - 1 avril 2017 à 21:30

Bonjour,
j'ai deux table : "TableAchat" et "Tablevente" :
1- Table d'Achat :
------------------------------------
Table Achat
------------------------------------
Référence | Prix d'achat
------------------------------------
---A0001---|--450,00--
---A0002---|--400,00--
---A0003---|--500,00--
---A0004---|--400,00--
---A0005---|--400,00--
---A0006---|--500,00--
---A0007---|--400,00--
---A0008---|--400,00--
---A0009---|--500,00--
----------------------------------

2- Table de Vende :
------------------------------------
Table Vente
------------------------------------
Référence | Prix de Vente
------------------------------------
---A0001---|--500,00--
---A0002---|--450,00--
---A0003---|--550,00--
---A0004---|--500,00--
---A0005---|--450,00--
---A0006---|--550,00--
---A0007---|--500,00--
---A0008---|--450,00--
---A0009---|--550,00--
---A0010---|--500,00--
---A0011---|--550,00--
---A0012---|--560,00--
---A0013---|--570,00--
---A0014---|--580,00--
----------------------------------
ma question :
- comment je peut faire des calcules de solde (Prix vente - Prix d'achat) est présent comme ça ?
---------------------------------------------------------
Liste de bénéfice
--------------------------------------------------------
Référence|Prix d'achat|Prix de vente|prix de Solde
---A0001--|--0450,00--|--0500,00|50.00
---A0002--|--0400,00--|--0450,00|50.00
---A0003--|--0500,00--|--0550,00|50.00
---A0004--|--0400,00--|--0500,00|100.00
---A0005--|--0400,00--|--0450,00|50.00
---A0006--|--0500,00--|--0550,00|50.00
---A0007--|--0400,00--|--0500,00|100.00
---A0008--|--0400,00--|--0450,00|50.00
---A0009--|--0400,00--|--0550,00|50.00
---A0010--|--0000,00--|--0500,00|500.00
---A0011--|--0000,00--|--0550,00|550.00
---A0012--|--0000,00--|--0560,00|560.00
---A0013--|--0000,00--|--0570,00|570.00
---A0014--|--0000,00--|--0580,00|580.00
------------------------------------------------------------
j'ai fait ce code VB:

Dim Ref_achat  As String
Dim Ref_vente  As String
dim prixachat as double
dim prixvente as double 
dim prixsolde as double

Ref_Cherch  =""
prixachat =0
prixvente =0
prixsolde =0

If Liste1.Rows <> 1 Then
    For y = 1 To liste1.Rows - 1
        Ref_achat = liste1.TextMatrix(y, 0)
        prixachat =liste1.TextMatrix(y, 1)

            For i = 1 To liste2.Rows - 1
         Ref_vente=liste2.TextMatrix(i, 0)     
         prixvente =liste2.TextMatrix(i, 1)

                If Ref_achat   = Ref_vente   Then
                 prixsolde =prixvente -prixachat

liste3.AddItem ref_vente & vbtab & prixachat & vbtab & prixvente & vbtab & prixsolde 
                   
                End If
            Next i
      
    Next y
End If

Aide-moi,

Merci d'avance !!!

Afficher la suite

A voir également:

Comment traiter des totaux entre les tableaux VB 6?
Vb - Télécharger - Langages
Nero 6 - Télécharger - Gravure
Belote a 6 - Forum Graphisme
Reconsidérer le traitement de vos informations à des fins publicitaires - Accueil - Réseaux sociaux
Roland souhaite calculer le montant total des ventes de son magasin. le fichier contient, pour chaque produit, la quantité vendue et le prix unitaire. calculez le montant total des ventes. ✓ - Forum Excel

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Votre code marche tres bien, sauf que vous ne prenez pas la bonne table pour la boucle y. Vendre ce que vous n'avez pas achete c'est pas bien

accent19811 Messages postés 98 Date d'inscription Statut Membre Dernière intervention

Bonjour,

ça va bien ami, "Je suis très heureux de votre réponse"

oui marche bien,

mais non montre pas les autres article, qui se trouve de table de vente,
elle montre seulement les articles qui se trouve dans table d'achat, car l'référence d'achat = à référence de vente.

moi, je vous S.V.P :

- dans la liste 3 ; je vous montre tous les articles qui se trouve dans table de vente et table d'achat, si l'référence d'article d'achat = à l'référence d'article de vente, s'affiche dans la liste trois, et fait des calcules; prix vente - prix d'achat pour donnée le solde réel, sinon s'affiche aussi les autres article qui n'a fait pas la même référence, et fait des calcules.

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > accent19811 Messages postés 98 Date d'inscription Statut Membre Dernière intervention

Re,

Dim Ref_achat  As String
Dim Ref_vente  As String
Dim prixachat As Double
Dim prixvente As Double
Dim prixsolde As Double
Dim flg_OK As Boolean

Ref_Cherch = ""
prixachat = 0
prixvente = 0
prixsolde = 0

If Liste2.Rows <> 1 Then
    For y = 1 To Liste2.Rows - 1
        Ref_vente = Liste2.TextMatrix(y, 0)
        prixvente = Liste2.TextMatrix(y, 1)
        flg_OK = False
        For i = 1 To Liste1.Rows - 1
            Ref_achat = Liste1.TextMatrix(i, 0)
            prixachat = Liste1.TextMatrix(i, 1)
            If Ref_achat = Ref_vente Then
                prixsolde = prixvente - prixachat
                Liste3.AddItem Ref_vente & vbTab & prixachat & vbTab & prixvente & vbTab & prixsolde
                flg_OK = True
                Exit For
            End If
        Next i
        If Not flg_OK Then      'pas de prix achat
            prixachat = 0
            Liste3.AddItem Ref_vente & vbTab & prixachat & vbTab & prixvente & vbTab & prixvente
        End If
    Next y
End If

accent19811 Messages postés 98 Date d'inscription Statut Membre Dernière intervention

Bonjour,

merci beaucoup.

Je suis très heureux de votre réponse

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > accent19811 Messages postés 98 Date d'inscription Statut Membre Dernière intervention

Re,

Je regarde demain pour le projet taxi

accent19811 Messages postés 98 Date d'inscription Statut Membre Dernière intervention

Bonjour,

Merci l'autre fois,
Je suis en attente pour votre aide

Discussions similaires

Voxbone ? qui est-ce ?

Belote à 6 joueurs

Règle du jeu

Paris multiple : explications de 2/3, 3/4, 2/4, 2/5, etc.

Table des matières dont les titres n'apparaissent pas..

Votre réponse

Discussions similaires