somme de cellules de même couleur

[JCC]

Bonjour à tous,

Je cherche la solution qui me permettrait de totaliser des valeurs de cellules auquelles j'aurais donné un fond de même couleur.
Ou éventuellement un texte de même couleur.
Ceci mze permettrai de sérier des totaux par rubriques alors qu'elles sont mélangées dans un tableau.

Merci par avance.

 

[omicron]

Bonjour JCC,

Tu trouveras en pièce jointe un exemple de résolution du problème posé.

=====================================================
Private Sub CommandButton1_Click()

Set RngVal = Range("B213") '>>> Range zone cellules à totaliser sans titre (A régler)
Set RngTot = Range("B15:B18") '>>> Range zone totaux (A régler)

For Each CelTot In RngTot
CelTot.Value = 0
Next CelTot

For Each CelVal In RngVal.Cells
If IsNumeric(CelVal) Then
For Each CelTot In RngTot.Cells
If CelVal.Interior.ColorIndex = CelTot.Interior.ColorIndex Then _
CelTot.Value = CelTot.Value + CelVal.Value
Next CelTot
End If
Next CelVal

End Sub
=====================================================

En te souhaitant une bonne fin de Week-end.


Omicron

 

[JCC]

Bonjour,

C'est tout à fait ce que je souhaitais savoir.
Je t'en remercie bien sincèrement.

JCC