Discussion :

[lysandre33]

Bonjour à tous,

Je souhaiterais savoir s'il est possible était possible de créer des macros sous Excel en faisant références à des couleurs de cellules.

Je m'explique, dans une colonne j'ai plusieurs valeurs en euro correspondantes à plusieurs produits.
selon les caractéristique des produits la couleur de cellule est différente.
Je voudrais faire la somme des valeurs selon la couleur de cellule.

J'espère avoir été clair

Merci pour vos réponses ;-)

@+

lysandre

[Pierre Fauconnier]

Bonjour et bienvenue

Avec ces deux fonctions, tu peux y arriver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function CouleurCellule(Cellule As Range)
    Application.Volatile
    CouleurCellule = Cellule.Cells(1, 1).Interior.Color
End Function
 
Function SommePlageCouleurs(Plage As Range, Couleur As Long)
    Application.Volatile
    Dim Cellule As Range
 
    For Each Cellule In Plage
        If Cellule.Interior.Color = Couleur And IsNumeric(Cellule.Value) Then _
            SommePlageCouleurs = SommePlageCouleurs + Cellule.Value
    Next Cellule
End Function

Tu peux alors les utiliser au sein d'une formule

=SommePlageCouleurs(G2:G6;CouleurCellule(G3))

Attention que pour être certain de la valeur renvoyée, il faut recalculer...