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 : 35
    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
    3 918
    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 : 3 918
    Points : 7 476
    Points
    7 476

    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

Discussions similaires

  1. Réponses: 2
    Dernier message: 05/12/2016, 16h02
  2. Comment récupérer des erreurs pour les traiter ?
    Par JuanLuis dans le forum Embarqué
    Réponses: 25
    Dernier message: 24/08/2012, 14h49
  3. comment partager des données entre les sessions
    Par jesslegende dans le forum Sessions
    Réponses: 9
    Dernier message: 12/03/2011, 23h16
  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, 13h36
  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, 12h28

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