XL 2013 Somme tant que

[sdsdsd]

Bonjour a tous,

Je cherche une fonction qui pourrait m'aider a additioner des valeurs en K tant que C reste identique.
Je m'explique:

J'ai a ma disposition des Concepts (en gras en C) constitués d'Options. Le prix de vente des Concept est égale a la somme des Options. J'ai pour l'instant recours a une macro pour calculer ce prix de vente, mais le format n'est pas assez dynamique pour que je puisse l'utiliser.

Je cherche donc une fonction qui calculera le prix des Concept en additionant K tant que C = Option. Lorsque la fonction rencontre un autre Concept, elle arretera d'aditionner.
J'ai illustré ce que devra faire la formule dans la photo ci apres.

Je galére la dessus depuis ce matin...En esperant avoir été comprehensible,

Bonne soiree
Ariane

 

[Compte Supprimé 979]

Bonjour,
Pour moi aucune formule ne permettra de le faire, aucun critère différent
@+

 

[sylvanu]

Bonsoir Sdsdsd, Bruno,
Un essai en PJ avec une fonction perso :

Function SumConcept(C$)
    L = ActiveCell.Row - 1
    While Cells(L, "B") = C
        Somme = Somme + Cells(L, "K")
        L = L - 1
    Wend
    SumConcept = Somme
End Function

Syntaxe : =SumConcept(B10) B10 étant la cellule contenant la référence à compter.

 

[zebanx]

Bonjour sdsdsd, brunom45, sylvanu , le forum

De ma compréhension, par UDF sur les cellules en jaune.

Function sumplage(rng)
'-par UDF
frow = Split(Split(rng.Address, "$")(2), ":")(0)
drow = Split(rng.Address, "$")(4)
colrng = Cells(1, Split(rng.Address, "$")(1)).Column
'ta = rng.Value
i = Application.Caller.Row
j = Application.Caller.Column
   For m = i - 1 To frow + 1 Step -1
       If Cells(i, colrng) <> Cells(m, colrng) Then
         sumplage = sumplage + Cells(m, colrng).Offset(0, j - colrng).Value
       Else
       Exit Function
       End If
    Next m
End Function

bonne journée
zebanx