Discussion :

[ACCENT1981]

Bonjour,
j'ai deux table : "TableAchat" et "Tablevente" :
1- Table d'Achat : (Liste 1)
------------------------------------
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 : (Liste 2 )
------------------------------------
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 (Liste 3)
--------------------------------------------------------
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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
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

Merci d'avance !!!

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim Ref_achat  As String
Dim Ref_vente  As String
Dim Ref_Cherch  As String
 
Dim prixachat As Single '<-----------
Dim prixvente As Single '<-----------
Dim prixsolde As String '<-----------
 
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 = CStr(Format(CSng(prixvente) - CSng(prixachat), "0.00"))
                Liste3.AddItem Ref_vente & vbTab  _
                             & liste1.TextMatrix(y, 1) & vbTab _
                             & liste2.TextMatrix(i, 1) & vbTab _
                             & prixsolde
            End If
        Next i
 
    Next y
End If