Calcul de somme en fonction des choix faits

[ascarter]

Bonjour le forum,
Je remplis le tableau de la feuille 1 avec des noms de couleur grâce à l'userform. La feuille 2 contient des chiffres associés à chaque couleur.
J'aimerais qu'en appuyant sur le bouton calcul, la somme des données présentes dans le tableau
se fasse dans la feuille 3 dans une cellule quelconque.
Est-ce possible de réaliser celà? Merci d'avance pour vos réponses.

 

[phlaurent55]

Re : Calcul de somme en fonction des choix faits

Bonjour ascarter,

ton fichier en retour
les sommes se font par formules
je te laisse faire la modif pour les mettre sur une autre feuille

réflexion perso: les procédures que je découvre sur l'usf me paraissent

à+
Philippe

 

[ascarter]

Re : Calcul de somme en fonction des choix faits

Merci phlaurent55,
Je vais adapter cette méthode à mon fichier réel. Merci encore.

 

[JHA]

Re : Calcul de somme en fonction des choix faits

Bonjour à tous,

A essayer, attention dans ton fichier il y avait un espace après "Jaune " en Feuil2

=SOMME((Feuil2!B1:B8)*NB.SI(Feuil1!$A$2:$C$8;Feuil2!A1:A8))

Formule matricielle

JHA

 

[ascarter]

Re : Calcul de somme en fonction des choix faits

Merci à tous,j'ai également une solution par macro...

Option Explicit

Sub Calcul()
Dim Kase As Range
Dim cel As Range
Dim Tot As Double

For Each Kase In Range("A2:C8")
If Kase <> "" Then
Set cel = Sheets("Feuil2").Columns("A").Find(what:=Kase, LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then
Tot = Tot + cel.Offset(0, 1)
Else
MsgBox Kase
End If
End If
Next Kase

Sheets("Feuil3").Range("A1") = Tot
End Sub

A plus...