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?
- Reconsidérer le traitement de vos informations à des fins publicitaires - Accueil - Réseaux sociaux
- Nero 6 - Télécharger - Gravure
- Gta 6 trailer 2 - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? ✓ - Forum Bureautique
- Barbara veut calculer automatiquement son budget dans un tableau. citez un des logiciels lui permettant de faire des calculs sur des tableaux de nombres (tableur). - Forum Excel
ç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