Sommer des éléments selon une condition

[dimo]

Bonsoir à tous.

Je débute en VBA et malgré des nombreuses recherches sur internet je n'ai pas trouvé de réponse à mon problème.
Je m'explique. Mon fichier est fait de 2 feuilles. Sur la première, un bouton qui appelle un userform. Sur la deuxième, 2 colonnes : une colonne "évènement" et une colonne "montant".
Dans le userform, je sélectionne dans un combobox un évènement, et j'aimerai sommer tous les éléments de la colonne "montant" correspondants à cet évènement.
J'ai cru comprendre que je devrai utiliser la fonction Vlookup mais je ne vois pas comment...

Merci par avance de votre aide.

 

[néné06]

Re : Sommer des éléments selon une condition

Bonsoir Dimo

Bienvenue sur le Forum
Le mieux , pour que l'on saisisse bien ton problème , serait de nous faire parvenir une pièce jointe, avec un exemple de ce que tu as et ce que tu désirerai.

Cordialement

 

[wilfried_85]

Re : Sommer des éléments selon une condition

Bonjour.

Sans fichier un essai :

textbox1.value & Format(Application.WorksheetFunction.SumIf(Sheets("Feuil1").Range("A1:A5"), combobox1.vavue, Sheets("Feuil1").Range("B1:B5")), "######0.00")

Adapter le nom de la feuile ainsi que les plages A1:A5 et B1:B5

 

[dimo]

Re : Sommer des éléments selon une condition

Merci pour votre aide.

J'ai tenter d'insérer le code suggéré par Wilfried_85 dans le code de mon userform2 mais cela ne fonctionne pas.
Vous trouverez le dit fichier en pièce jointe.
Sympa de prendre du temps pour m'aider, je suis vraiment bloqué là...

 

[wilfried_85]

Re : Sommer des éléments selon une condition

re:

excuse erreur de mal révéillé

textbox1.value = Format(Application.WorksheetFunction.SumIf(Sheets( "Feuil1").Range("A1:A5"), combobox1.vavue, Sheets("Feuil1").Range("B1:B5")), "######0.00")

 

[dimo]

Re : Sommer des éléments selon une condition

Alors là, je ne vois pas comment je pourrais accepter des excuses, en l'occurrence c'est un fier service que vous me rendez.
Mille merci pour prendre du temps et aider des gens que vous ne connaissez pas.