Sujet Précédent Sujet Suivant

Comment traiter des totaux entre les tableaux VB 6?

Fermé
accent19811 Messages postés 98 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023 - 31 mars 2017 à 21:28
accent19811 Messages postés 98 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023 - 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 !!!
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
1 avril 2017 à 07:21
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
0
accent19811 Messages postés 98 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023
1 avril 2017 à 16:00
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.
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > accent19811 Messages postés 98 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023
1 avril 2017 à 20:51
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
0
accent19811 Messages postés 98 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023
1 avril 2017 à 20:59
Bonjour,

merci beaucoup.

Je suis très heureux de votre réponse
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > accent19811 Messages postés 98 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023
1 avril 2017 à 21:14
Re,

Je regarde demain pour le projet taxi
0
accent19811 Messages postés 98 Date d'inscription mercredi 4 janvier 2012 Statut Membre Dernière intervention 28 mai 2023
1 avril 2017 à 21:30
Bonjour,

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

Discussions similaires

Règle du jeu
Anonyme -
georges97 -

1 réponse
code ascii
Thomas13_9924 -
Dalfab -

2 réponses
CALCULS
smart19 -
Dracknard -

4 réponses
Calcul des ventes par mois d'un produit
buck.danny -
elena -

7 réponses