1. #1
    Membre à l'essai
    Homme Profil pro
    Chercheur en informatique
    Inscrit en
    mars 2012
    Messages
    25
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : Maroc

    Informations professionnelles :
    Activité : Chercheur en informatique

    Informations forums :
    Inscription : mars 2012
    Messages : 25
    Points : 23
    Points
    23

    Par défaut Comment traiter des totaux entre les tableaux ?

    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 !!!

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 169
    Points : 8 461
    Points
    8 461

    Par défaut

    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
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

Discussions similaires

  1. Réponses: 2
    Dernier message: 05/12/2016, 17h02
  2. Comment récupérer des erreurs pour les traiter ?
    Par JuanLuis dans le forum Embarqué
    Réponses: 25
    Dernier message: 24/08/2012, 15h49
  3. comment partager des données entre les sessions
    Par jesslegende dans le forum Sessions
    Réponses: 9
    Dernier message: 13/03/2011, 00h16
  4. [OpenOffice][Base de données] comment creer les cardinalite des relations entre les tables
    Par aya2103 dans le forum OpenOffice & LibreOffice
    Réponses: 0
    Dernier message: 23/08/2010, 14h36
  5. comment creer les cardinalite des relations entre les tables
    Par aya2103 dans le forum OpenOffice & LibreOffice
    Réponses: 0
    Dernier message: 23/08/2010, 13h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo