Somme a partir une liste à choix multiple

Résolu/Fermé

Lucasine Messages postés 154 Date d'inscription mercredi 9 mars 2016 Statut Membre Dernière intervention 15 octobre 2022 - 22 sept. 2017 à 16:01
yg_be Messages postés 23401 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 décembre 2024 - 23 sept. 2017 à 19:27

Bonjour,

J'airai besoin de vos lumières cher ami. Je vous explique mon souci.

Dans un formulaire, j'ai une liste à choix multiples reprenant des références reprit d'une requête. Dans une colonne liée il y a une somme pour chaque référence.

j'aimerai que dans un champ (Somme), il me donne le montant pour le choix sélectionné et si plusieurs référence sont sélectionné qu'il me donne la somme total des sélection.

je demande la somme([ListeReference].Column(1)) mais mon champ reste vide

Quelqu'un aurai une idée de comment puis-je obtenir le résultat souhaité ?

Merci d'avance

A voir également:

Somme liste déroulante excel
Liste déroulante excel - Guide
Excel liste déroulante en cascade - Guide
Formule somme excel colonne - Guide
Somme si couleur excel - Guide
Si et excel - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 23401 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 décembre 2024 Ambassadeur 1 557
22 sept. 2017 à 19:41

bonsoir, je pense que cela requiert un petit code VBA qui agirait chaque fois que la liste est modifiée.
exemple:

Private Sub ListeReference_AfterUpdate()

    Dim curTotal As Currency
    Dim varItem As Variant
    
    For Each varItem In Me!ListeReference.ItemsSelected
        curTotal = curTotal + Me!ListeReference.Column(1, varItem)
    Next
    
    Me!Somme = curTotal
    
End Sub

Lucasine Messages postés 154 Date d'inscription mercredi 9 mars 2016 Statut Membre Dernière intervention 15 octobre 2022
23 sept. 2017 à 12:22

Je te remercie, je vais essayer ça, malgré que je ne suis pas très douée avec le VBA

Lucasine Messages postés 154 Date d'inscription mercredi 9 mars 2016 Statut Membre Dernière intervention 15 octobre 2022
23 sept. 2017 à 12:39

Il a un petit souci avec le passage

curTotal = curTotal + Me!ListeReference.Column(1, varItem)

Il me la souligne pour faire savoir qu'il a une erreur (d'écriture surement) mais je ne la voit pas. une idée ?

yg_be Messages postés 23401 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 décembre 2024 1 557 > Lucasine Messages postés 154 Date d'inscription mercredi 9 mars 2016 Statut Membre Dernière intervention 15 octobre 2022
23 sept. 2017 à 12:58

je ne suis pas habitué à ce qu'Access souligne du code VBA: es-tu bien dans l'éditeur de code VBA? quelle version de Access?

Lucasine Messages postés 154 Date d'inscription mercredi 9 mars 2016 Statut Membre Dernière intervention 15 octobre 2022
23 sept. 2017 à 18:04

Oui oui, je suis bien en VBA.

Quand je vais en mode formulaire et que j'essai, il me met un message ;
Erreur d'exécution '13' :
Incompatibilité de type

2 choix : Fin ou débogage

Quand je fait débogage, il m'ouvre le code VBA est me surligne en jaune la partie suivante :

curTotal = curTotal + Me!ListeReference.Column(1, varItem)

castours > Lucasine Messages postés 154 Date d'inscription mercredi 9 mars 2016 Statut Membre Dernière intervention 15 octobre 2022
23 sept. 2017 à 18:32

Bonjour
Normalement on ne met pas inscrire le resultat d' un calcul dans une table.
On peut le faire dans un formulaire ou un etat

Réponse 2 / 2

InformatiqueSuisse Messages postés 117 Date d'inscription samedi 30 mars 2013 Statut Membre Dernière intervention 7 janvier 2018 91
22 sept. 2017 à 17:29

Écris le début de la formule =SOMME(
Ensuite sélectionne les cellules que tu veux calculer.
Enter.

C’est ce que tu voulais ?

--

Discussions similaires

Suppression listes déroulantes

Supprimer liste déroulante Excel

Effacer le contenue d'une cellule avec liste déroulante

Effacer liste déroulante

supprimer une liste déroulante