Somme couleurs développé VBA

Bonjour,

Je souhaiterais utiliser sur VBA une formule identique a la formule somme.si avec couleurs. J'ai déjà une ébauche mais ma formule ne me permet pas de travailler sur une plage comme dans la Somme si où je peux définir ma somme_plage.

Ex :

mon tableau de A1 à C4

Mon info couleurs se trouve sur la colonne A mais je ne veux additionner que les chiffres de la colonne C

voici mon ébauche de VBA :

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long

Application.Volatile True

Dim wCell As Range

For Each wCell In Plage

If wCell.interior.ColorIndex = NumeroDeCouleur Then

SommeSiCouleur = SommeSiCouleur + wCell.Value

End If

Next

End Function

Si un génie de excel pouvait me la réécrire avec mes demandes vous seriez fantastiques !!!

Mille merci d'avance

Bonjour

SommeSiCouleur = SommeSiCouleur + wCell.Offset(0, 2).Value

Exemple joint

Cordialement

Bonjour Amadéus,

Merci bcp pour votre réponse, malheureusement cela ne fonctionne pas sur mon fichier, d'autant plus que j'ai différentes colonnes ?

Je vous joins le fichier pour comprendre réellement mes attentes.

Sur le fichier imaginons que je veuille uniquement le total de la colonne de Mars (G) avec le code de couleur rose indiqué en colonne C ?

Mille mercis pour votre aide !

Bonjour

Bien sur!

Le code couleur dans la formule est différent et le décalage de colonne aussi.

Cordialement