Calculs répétés sur Excel avec saut de lignes

Bonjour à toutes et à tous,

Je cherche à faire plusieurs sommes de plusieurs cellules sur une même colonne. Ce calcul doit être répété dans la même colonne en sautant des lignes.

Le deuxième calcul porte sur un quotient dont le dénominateur ne change pas pour le bloc de calcul. Il s'agit toujours d'une même colonne.

J'ai cherché une formule me permettant de faire ces calculs sur toute la colonne. En vain.

Merci d'avance pour votre aide.

Lionel

Ps: les deux exemples en fichier joint

Bonjour,

pour le premier point, en jaune

en D3

=SI(B3="Total";SOMME(C$3:C3)-SOMME(D2:D$3);"")

obligatoirement dans une autre colonne (sinon VBA) car on ne peut pas superposer valeur et formule)

Merci beaucoup Steelson.

Effectivement, mon deuxième exemple se trouvait dans la même colonne dans mon fichier test. Mais, ce n'est pas le cas dans ma base de données.

Bonne fin de journée.

Lionel

Pour le second point ...

=SI(G3="Total";1;H3/DECALER(G3;EQUIV("Total";DECALER($G$1;LIGNE();;NBVAL(G:G)-LIGNE()+1);0);1))

Et en VGA, comment pourrais-je le faire ?

Sub calcul1()
Dim cel As Range, compteur As Long
compteur = 0
For Each cel In Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    If cel.Value = "Total" Then
        cel.Offset(0, 1).Value = compteur
        compteur = 0
    Else
        compteur = compteur + cel.Offset(0, 1).Value
    End If
Next
End Sub

Sub calcul2()
Dim i As Long, total As Long
For i = Cells(Rows.Count, "G").End(xlUp).Row To 3 Step -1
    If Cells(i, "G").Value = "Total" Then
        total = Cells(i, "G").Offset(0, 1).Value
        Cells(i, "G").Offset(0, 2).Value = 1
    Else
        Cells(i, "G").Offset(0, 2).Value = Cells(i, "G").Offset(0, 1).Value / total
    End If
Next
End Sub