Comment traiter des totaux entre les tableaux VB 6?

accent19811 Messages postés 149 Statut Membre -  
accent19811 Messages postés 149 Statut Membre -
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 !!!

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    1. accent19811 Messages postés 149 Statut Membre
       
      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
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > accent19811 Messages postés 149 Statut Membre
         
        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
    2. accent19811 Messages postés 149 Statut Membre
       
      Bonjour,

      merci beaucoup.

      Je suis très heureux de votre réponse
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > accent19811 Messages postés 149 Statut Membre
         
        Re,

        Je regarde demain pour le projet taxi
        0
    3. accent19811 Messages postés 149 Statut Membre
       
      Bonjour,

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

Discussions similaires

Belote à 6 joueurs
Bererom -
Raymond PENTIER -

10 réponses
grille de points pour belote
portos54 -
antoine.let -

7 réponses
Règle du jeu
Anonyme -
georges97 -

1 réponse
garder constant des calculs
jack2125 -
PHILOU10120 -

4 réponses
CALCULS
smart19 -
Dracknard -

4 réponses