Calcul de somme en fonction des choix faits

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

Re : Calcul de somme en fonction des choix faits

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

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))

Cliquez pour agrandir...

Formule matricielle

JHA

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...