Comment faire la somme des cellules d'une couleur donnée ?

Pour gérer toutes les couleurs de 2007 ou être indépendant des palettes , utiliser Color au lieu de ColorIndex. L'exemple, ici compare la couleur des colonnes A et de D à une couleur témoin en G1.

Private sub UserForm_Initialize()
 For Each c In [A1:A100]
  If c.Interior.Color = couleur([G1]) Then t = t + c
  ' ou If c.Interior.Color = 65535 Then t = t + c
 Next c
 Me.TextBox1 = t
 t = 0
 For Each c In [D1:D100]
  If c.Interior.Color = couleur([G1]) Then t = t + c
  ' ou If c.Interior.Color = 65535) Then t = t + c
 Next c
 Me.TextBox2 = t
 end sub

Function couleur(c)
 couleur = c.Interior.Color
 End Function