calcul sous-totaux colonne à chaque cellule différente de 1

job75 à dit:

Bonjour,

Voyez le fichier joint et cette macro :

Code:

Sub SousTotal()
Dim plage As Range, cel As Range
Application.ScreenUpdating = False
Set plage = Range("B1", [B65536].End(xlUp))
plage.AutoFilter 1, "<>1"
Set plage = plage.Offset(1).SpecialCells(xlCellTypeVisible)
ActiveSheet.AutoFilterMode = False
Set plage = Intersect(plage.EntireRow, [C:C])
[C2:C65536].ClearContents 'RAZ
For Each cel In plage
cel.FormulaArray = "=SUM(OFFSET(R1C2,MAX(IF(R1C2:R[-1]C2<>1,ROW(R1C2:R[-1]C2)))-1,):R[-1]C2)"
'cel = cel 'facultatif, supprime la formule
Next
End Sub

Elle entre une formule matricielle en colonne C.

A+

Cliquez pour agrandir...

job75 à dit:

Re,

Vous avez bien sûr compris que VBA n'est absolument pas nécessaire.

Votre fichier du post #6 adapté ci-joint.

A+

Cliquez pour agrandir...