Comment traiter des totaux entre les tableaux VB 6?
accent19811
Messages postés
149
Statut
Membre
-
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:
Aide-moi,
Merci d'avance !!!
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:
- Comment traiter des totaux entre les tableaux VB 6?
- Nero 6 - Télécharger - Gravure
- Reconsidérer le traitement de vos informations à des fins publicitaires - Accueil - Réseaux sociaux
- Vb - Télécharger - Langages
- 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
- Gta 6 trailer 2 - Guide
ç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.
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 Ifmerci beaucoup.
Je suis très heureux de votre réponse
Je regarde demain pour le projet taxi
Merci l'autre fois,
Je suis en attente pour votre aide