Somme arreté si cellule vide

vgendron

XLDnaute Barbatruc

• 24 Avril 2017

• #2

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

et tu tires vers le bas

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 24 Avril 2017

• #3

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

 

Vote positif 0 Vote négatif

JBOBO

XLDnaute Accro

• 24 Avril 2017

• #4

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 24 Avril 2017

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2017

• #6

Bonjour martinigi, vgendron, mutzik, JBOBO,

Formule en D3 à copier vers le bas :

Code:

=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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2017

• #7

Re,

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

Code:

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 :

Code:

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

Fichier .xlsm joint.

A+

 

Pièces jointes

• Somme partielle VBA(1).xlsm

  20.6 KB · Affichages: 13

Vote positif 0 Vote négatif