IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

[A-00] Somme des valeurs d'une liste


Sujet :

VBA Access

  1. #1
    Membre régulier
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Février 2007
    Messages
    108
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2007
    Messages : 108
    Points : 80
    Points
    80
    Par défaut [A-00] Somme des valeurs d'une liste
    Bonjour !!

    voila, dans mon code vba, j'ai une liste qui me renvoit les Chiffres d'Affaires des 10 premiers clients.

    Cette liste est déclarée comme 'lstTopFlopSommeTop'

    J'aimerai dans une autre liste ou un champ texte pouvoir afficher la somme des 10 Chiffres d'affaires de la liste, pour ainsi avoir le total des Chiffres d'Affaires des 10 premiers clients.

    j'ai essayé de faire :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    ' Déclaration du compteur 
    Dim SommeTop as Integer
     
    ' Réinitialisation du compteur
    SommeTop = 0 
     
    ' Parcours séquentiel
    For i = 0 To 9 Step 1
        SommeTop = SommeTop + Me.lstTopFlopSommeTop.ItemData(i)
    Next i
     
    MsgBox SommeTop
    mais bien sur cela ne fonctionne pas... Donc je voudrais savoir comment récuperer par exemple les valeurs de la 3è colonne.

    d'avance merci !!

    Slici

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Décembre 2007
    Messages
    197
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2007
    Messages : 197
    Points : 300
    Points
    300
    Par défaut
    Bonjour,

    tu peux y accèder par la propriété Column :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    ' Déclaration du compteur 
    Dim SommeTop as Integer
     
    ' Réinitialisation du compteur
    SommeTop = 0 
     
    ' Parcours séquentiel
    For i = 0 To 9 Step 1
        SommeTop = SommeTop + Me.lstTopFlopSommeTop.Column(i,3)
    Next i
     
    MsgBox SommeTop

  3. #3
    Membre régulier
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Février 2007
    Messages
    108
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2007
    Messages : 108
    Points : 80
    Points
    80
    Par défaut
    merci !!

    c'était la méthode que je recherchait !!

    juste une petite chose, tu as inversé colonne et ligne :

    (3, i) pour parcourir les lignes de la 3ème colonne

    encore merci !!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Somme des valeurs d'une liste
    Par antho84 dans le forum Excel
    Réponses: 1
    Dernier message: 06/12/2014, 05h08
  2. [XL-2007] Somme des valeurs d'une zone de liste
    Par leyjah dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 19/04/2013, 23h51
  3. Réponses: 2
    Dernier message: 28/08/2008, 09h52
  4. Réponses: 1
    Dernier message: 23/05/2007, 12h49
  5. [SQL] Problème de récupération des valeurs d'une liste multiple en php
    Par BOLARD dans le forum PHP & Base de données
    Réponses: 1
    Dernier message: 01/05/2006, 01h29

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