Somme arreté si cellule vide

[martinigi]

Bonjour, je souhaiterai mettre une formule sur ce tableau excel qui effectuerai une somme jusqu'a la prochaine cellule vide.
Merci pour vos réponses

 

[vgendron]

Hello
un essai en D3
=SI(C4="";SOMME($C$3:C3)-SOMME($D$22);"")

et tu tires vers le bas

 

[mutzik]

Bonjour,

pour ma part, je fais autrement
en colonne A, toujours le nom de produit
en colonne D ligne 4 pour 'produit'
=SOMME.SI(A:A;A4;C:C)
puis je passe mes produits en écriture blanche sur fond blanc (sauf la 1ère ligne) pour faire plus joli

 

[JBOBO]

Bonjour,

En D4 à tirer vers le bas. (ligne 1000 maxi ou changer limite dans la formule)

=SI(A4="";"";SOMME(INDIRECT("C"&LIGNE()&":C"&SIERREUR(EQUIV("*";A5:A$1000;0);1000)+LIGNE()-1)))

 

[vgendron]

ou plutot
=SI(ET(C4="";C3<>"");SOMME($C$3:C3)-SOMME($D$22);"")

 

[job75]

Bonjour martinigi, vgendron, mutzik, JBOBO,

Formule en D3 à copier vers le bas :

=SI(A3="";"";SOMMEPROD(DECALER(C3;1;;EQUIV("";""&DECALER(B3;1;;;100);0))))

100 est le nombre maximum de sous-produits par produit + 1, l'augmenter si nécessaire.

A+

 

[job75]

Re,

Une solution VBA avec cette fonction à placer dans un module standard :

Function SommePartielle(ColProduit As Range, ColPrix As Range)
Dim lig&, n As Variant
lig = Application.Caller.Row
n = Application.Match("*", ColProduit(lig + 1).Resize(ColProduit.Count - lig), 0)
If IsError(n) Then n = ColProduit.Count - lig
SommePartielle = Application.Sum(ColPrix(lig + 1).Resize(n))
End Function

Formule en D3 :

=SI(A3="";"";SommePartielle(A:A;C:C))

Fichier .xlsm joint.

A+