Sous total en fonction des couleurs
Bonjour
Je travail sur un fichier ou les lignes peuvent etre de 3 couelurs differentes. Bleu foncé ( titre et sous totaux) bleu clair et vert clair ( ligne a dditionner).
Je voudrais lorsque j'ai une ligne bleu marine, que sa additionne les lignes supérieurs (uniquement bleu clair et vert clair) .
je vous joint un petit exemple.
Merci pour votre aide, ca devient compliqué pour moi...
Bonjour jcharpy et
Sujet déjà évoqué
https://www.google.com/search?q=sous+total+en+couleur
vous pourrez trouver une réponse ICI
@+
Bonjour
Je te remercie pour le message. J'ai essayer de taper le code en VBA, et quand j'essaie de faire la fonction, ça ne prend pas la couleur. La somme se fait sur la totalité de la plage de la somme que j'ai selectionné .
est ce que c'est possible , pour chaque ligne bleu foncé que sa calcule la somme des lignes du dessus ? sans sélectionner la plage a chaque fois?
Mon fichier est un budget, et on cherche a automatiser les sous totaux.
Re,
Désolé, je n'avais pas regardé le fichier, voici une possibilité
Sub Totaux_Chapitre()
Dim dLig As Long, Lig As Long
Dim LigDeb As Long, LigFin As Long
dLig = Range("B" & Rows.Count).End(xlUp).Row
For Lig = 1 To dLig
' Vérifier si chapitre "T"
If Range("B" & Lig) = "T" Then LigDeb = Lig + 1
' Vérifier si sous-chapitre t1, t2 ou t3
If Range("B" & Lig) <> "" And InStr(1, "t1,t2,t3", Range("B" & Lig)) > 0 Then
LigFin = Lig - 1
Range("D" & Lig).FormulaLocal = "=SOMME(C" & LigDeb & ":C" & LigFin & ")"
End If
Next Lig
End Sub@+