Exclure des couleurs dans une sommecouleur sous VBA

Bonjour à tous,

Je me permets de créer ce post afin de trouver une solution à mon problème, après avoir beaucoup trouvé de sujets similaires sur le net, rien ne correspond à ce que je cherche.

Dans un fichier je cherche à faire la somme de cellules de certaines couleurs (uniquement compter les cellules qui ont la même couleur, si j'ai deux cellules en bleu, le résultat est donc 2)

J'utilise le code suivant sous vba

Function CompteCellulesCouleur(Plage_à_Contrôler As Object) As Integer

Application.Volatile True

CompteCellulesCouleur = 0

For Each Cell In Plage_à_Contrôler

If Cell.Interior.ColorIndex <> xlNone Then CompteCellulesCouleur = CompteCellulesCouleur + 1

Next Cell

End Function

Ce qui fonctionne très bien

En revanche et ma question est la suivante, peut on ajuster ce code pour exclure des codes couleur du total,

par exemple

192,0,0

255,192,0

Ou y a t il une autre solution à mon problème ?

Merci d'avance

Bonjour,

Function CompteCelulesCouleur(Plage_à_Contrôler As Object) As Integer
Dim Cel As Range
    Application.Volatile True
    CompteCelulesCouleur = 0
    For Each Cel In Plage_à_Contrôler
        If Cel.Interior.Color <> RGB(255, 255, 255) And _
        Cel.Interior.Color <> RGB(192, 0, 0) And _
        Cel.Interior.Color <> RGB(255, 192, 0) Then CompteCelulesCouleur = CompteCelulesCouleur + 1
    Next Cel
End Function

A+

Super !

Mille merci, je test ça dès demain matin au bureau

A+