Additioner des cellules colorées en VBA

[thisisonehood]

Bonjour,


J'ai un tableau excel où je veux additionner des cellules situés dans une même colonne.
Le tableau se remplit dynamiquement. dans la colonne ou je dois additioner les chiffres, je dois en premier temps aditionner les cellules de couleurs bleu puis en deuxieme temps les cellules de couleur jaune. ça doit etre extremement facile mais je sais pas faire avec du code VBA.
Merci de votre aide !

PS: le tableau se remplit dynamiquement donc la position des cellules colorés n'est pas connues.

Ci-joint le fichier

 

[mapomme]

Re : Additioner des cellules colorées en VBA

thisisonehood,

Une fonction VBA faisant la somme d'une zone contigüe si la couleur de fond des cellules est identique à la couleur de fond d'une cellule de référence.
Formule en R22:

=SommeCouleur($Q$5:$Q$20;M22)

La fonction VBA:

Function SommeCouleur(Zone As Range, CommeCellule As Range)
Dim xCell As Range, Couleur

Couleur = CommeCellule(1, 1).Interior.Color
For Each xCell In Zone
  If xCell.Interior.Color = Couleur And IsNumeric(xCell.Value) Then
    SommeCouleur = SommeCouleur + xCell.Value
  End If
Next xCell

End Function

 

[Gorfael]

Re : Additioner des cellules colorées en VBA

Salut thisisonehood et le forum
N'ayant que la version 2003, charger le fichier ne me sert pas à grand chose.
Juste une remarque : Il est bien évident que la Function de mapomme (Salutations), ne s'applique qu'a des couleurs fixées, et non à des couleurs issues d'une MFC.
A+