XL 2019 Addition selon couleur vba

[FRANCK823]

Bonjour a tous

Je recherche une vba qui me permettrais d'additionner les chiffres de differentes cellules en fonction de la couleur de la dite cellule

Il y a en effet un complément excel qui peut le permettre (somme_si_couleur) , mais je préféré largement une vba

Merci de votre attention

 

[sylvanu]

Bonjour Frank,
Les couleurs sont elles mises à la main ou par MFC ?
Et le petit fichier test ? 🙂

 

[sylvanu]

Re
Si les couleurs sont mises de façon manuelle alors en PJ un essai avec :

Function SommeParCouleur(Plage, Cellule)
    Couleur = Range(Cellule.Address).Interior.Color
    For Each C In Plage
        If Range(C.Address).Interior.Color = Couleur Then SommeParCouleur = SommeParCouleur + C.Value
    Next C
End Function

La syntaxe est : =SommeParCouleur(Plage,Cellule référence de couleur )

 

[job75]

Bonsoir FRANCK823, sylvanu,

Pour pouvoir travailler sur les couleurs réelles ou les couleurs des MFC il faut utiliser DisplayFormat.

Mais attention, dans une fonction VBA il faut passer par Evaluate :

Function SommeSICouleur(Plage As Range, Cellule As Range)
Application.Volatile
Dim coul As Long, c As Range
coul = Evaluate("ValeurCouleur(" & Cellule.Address() & ")")
For Each c In Plage
    If IsNumeric(c) Then If Evaluate("ValeurCouleur(" & c.Address() & ")") = coul _
        Then SommeSICouleur = SommeSICouleur + CDbl(c)
Next
End Function

Private Function ValeurCouleur(R As Range) As Long
ValeurCouleur = R.DisplayFormat.Interior.Color
End Function

A+

 

[FRANCK823]

Re
Si les couleurs sont mises de façon manuelle alors en PJ un essai avec :

Function SommeParCouleur(Plage, Cellule)
    Couleur = Range(Cellule.Address).Interior.Color
    For Each C In Plage
        If Range(C.Address).Interior.Color = Couleur Then SommeParCouleur = SommeParCouleur + C.Value
    Next C
End Function

La syntaxe est : =SommeParCouleur(Plage,Cellule référence de couleur )

Ouah super rapide et explicite tout à fait le sujet se je recherchais
Merci beaucoup