Mise en forme avec somme

[guima1642]

re- Bonjour le forum,

suite de l'incident indenté. pb dans la mise en forme, j'aimerai que les colonnes en jaune soient sommées dans la feuille sep11 je n'arrive pas à trouver la solution.

encore merci à Modeste et Cisco pour leur aide.
les lignes sont : 3 - 12 - 18
colonne : D - E - F

sommer dans D3 : D4 à D11
sommer dans D12 : d12 à d17
sommer dans D18 : D18 à D24

Je pense avoir été plus claire.

merci beaucoup

 

[guima1642]

Re : Mise en forme avec somme

Bonjour à tous

j'essaie de faire une boucle pour sommer des sous-totaux mais je n'y arrive pas. en fait j'aimerai une boucle qui additionne jusqu'au 1 suivant dans la collone "g"
dans ma boucle je somme que la ligne suivante

For colidx = 4 To 6
            For i = 3 To Rows.Count
                If Cells(i, 1) = "" Then Exit For
                    
                If Cells(i, 7) = 1 Then Cells(i, colidx) = Application.WorksheetFunction.Sum(Sheets("feuil1").Cells(i + 1, colidx))
            
            Next i
        
Next colidx

Merci d'avance

A +