Sous-totaux par boucle

Bonjour,

1er post sur le forum! :D

Je voudrais produire un code qui permet de réaliser des sous-totaux sur une colonne.

Je suis partis sur une boucle en for avec une condition if par la couleur de la cellule.

Mes principaux problèmes :

1. - la plage de sous-total est variable pour chaque sous-total
2. J'arrive à retrouver la borne basse de ma plage mais pas celle d'en haut (égale au précédent sous-total+1 vers le bas)

Merci pour l'aide que vous pourrez m'apporter!

Bonjour,

proposition en identifiant la première ligne à utiliser (j)

Sub sous_total()

Dim i, j
j = 2

For i = 2 To 18

   If Cells(i, 1).Interior.Color = RGB(217, 217, 217) Then
       Cells(i, 1).FormulaLocal = "=sous.total(9;A" & j & ":A" & i - 1 & ")"
       j = i + 1
   End If

Next i

End Sub

Bonjour

Edit Dan : post supprimé. code identique à celui posté par Steelson (désolé je n'avais pas vu ton post...)

C'est parfait !

Merci beaucoup à vous 2!

Bonjour Dan, ce n'est pas grave !

Mipi : tu peux alors fermer le fil de discussion en cliquant sur V