Chercher les éléments d'une liste dans une autre liste avec VBA

Bonjour à tous,

Je suis nouveau sur VBA et je m'arrache un peu les cheveux sur un problème qui ne me semble pourtant pas très violent :
J'ai une liste contenant des références dans un onglet et une autre liste plus longue dans l'onglet suivant avec plusieurs références dont certaines présentes sur le premier onglet et des valeurs chiffrées associées aux références en question.
Mon objectif serait de faire une fonction calculant la somme des valeurs associées aux références listées dans le premier onglet.
Je ne suis pas sûr d'être très clair mais j'espère que l'exemple en pièce jointe le sera davantage.
Ici les références sont des prénoms, et mon objectif et de calculer la somme dépensée par Jean Damien, François et Marie à eux 4.

Merci d'avance pour votre aide :)

Je n'ai pas ouvert ton fichier mais il me semble que ça un calcul qui pourrait se faire sans VBA en utilisant juste des RECHERCHEV.

Bonjour,

comme le VBA est inutile pour ce besoin car une simple formule de calculs d'Excel est suffisante via SOMME.SI par exemple
et comme tu es étudiant, sans connaître le cadre de tes cours, on risque de t'apporter une solution hors contexte
te rapportant un beau zéro !
Un étudiant a dû se retaper son UV l'année suivante suite au zéro obtenu via mon code pourtant totalement fonctionnel …
Commencer aussi par les règles du forum !

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

Merci pour vos réponses. Je suis bien conscient que ce problème ne requiert pas l'usage de VBA mais j'ai grandement simplifié le sujet, qui s'intègre en fait dans un montage plus complexe et impliquant de nombreux autres critères. Mon document fonctionne pour l'instant grâce à des fonction simples mais extrêmement rigides, ce qui me pose un problème car ce document doit pouvoir évoluer de manière plus flexible. Quant à l'interrogation sur un éventuel 0 pas de soucis pour ça puisque j'ai besoin de cette information dans le cadre de mon stage mais merci de vous en être inquiété :)

Citation:

---

Envoyé par bettercallbob

j'ai grandement simplifié le sujet, qui s'intègre en fait dans un montage plus complexe et impliquant de nombreux autres critères.

---

Sans les informations nécessaires, on risque de tourner en rond longtemps avant de trouver la solution adéquate.

Citation:

---

Mon document fonctionne pour l'instant grâce à des fonction simples mais extrêmement rigides,

---

Es-tu sûr que du code VBA ce soit plus souple ?

Si j'ai bien compris, ce que tu souhaites c'est, pour chaque ligne d'une liste, trouver la référence unique correspondante d'une autre liste et en rapporter la valeur dans la première liste pour pouvoir, ensuite, faire la somme de toutes ces valeurs.
C'est ça ?

Il faut que tu définisses une variable de type Range.
Tu fais une boucle (le plus simple est For to) qui scrutes toutes les lignes de ta première liste.
Pour chaque ligne, tu lances une recherche de la référence avec un Find sur un Range qui référence la colonne contenant les références dans la seconde liste et tu mets le résultat dans la variable Range dont je parlais au début.
Tu vérifies si le contenu de la variable n'est pas Nothing (si la recherche a été fructueuse).
Si c'est le cas, tu utilises le numéro de ligne de cette variable avec sa propriété Row pour récupérer la valeur de la liste source et la placer dans la liste cible avec un simple Range = Range.

Peut être en effet que j'aurais dû donner plus d'informations pour donner plus de sens à ma demande. Cela dit j'ai trouvé une solution efficace et qui tourne avec une boucle for to (c'est ce que j'essayais de faire depuis le début mais un problème d'ordre des commandes s'était glissé par là et il est enfin résolu).
Je suis aussi assez confiant qu'une fonction faisant appel à quelques plages dynamiques nommées au préalable sera plus souple que les très nombreuses lignes de critères qui servaient à alimenter les fonctions base de données que j'utilisais jusqu'ici.

Merci beaucoup pour votre aide.