Faire la somme de cellules coloriées dans TCD

re,

Sans garantie aucune:

Sub SommeCouleurJaune()
For Each cel In Selection
If cel.Interior.ColorIndex.= reference then Somreference= Somreference + cel ' réference par rapport au code de Mike-31
next cel
Range("A2") = Somreference
end sub

je ne l'ai pas testé donc tiens moi au courant.

A+

Bonjour Lermitte222,

Merci de la réponce mais je voudrais juste savoir quelque chose le fait d'add un petit complement fais marcher la formule sur mon excel mais si je refile le prog à une personne ne disposant pas de se plugging est ce que la fonction marche toujours???
Si c'est le cas je vais m'y interresser. Autrement j'ai trouvé ce code et vais voir s'il marche:
Option Explicit
Function som_couleur(plage As Range, couleur As Integer) As Double
Dim r As Range, nb As Double
Application.Volatile
nb = 0 (chiffre ou lettre ???)
For Each r In plage
If r.Interior.ColorIndex = couleur Then nb = nb + r.Value
Next
som_couleur = nb
End Function

Function cellcouleur(c As Range)
cellcouleur = c.Interior.ColorIndex
End Function

A+

Super ça fonctionne vraiment bien le seul problème et ça j'ai farfouillié et y'a pas trop de réponce, c'est au niveau de la mise à jour elle ne fonctionne pas on n'est obligé à chaque fois de retapper la formule.
Je vais essayé de créer un bouton de manière à ce que quand on clique il remet la formule. Bien évidement si vous avez une idée je suis preneurs :)

merci encore pour l'info ça m'a beaucoup aidé, je ne mets pas résolu à ce sujet car il manque le recalcul

re Lermitte222,

Merci beaucoup ça fonctionne du tonner, j'ai juste utilisé la touche F9 et mis sur ma feuille appuyer sur F9 pour mettre à jour ^^ beaucoup plus simple qu'un bouton d'action.

merci encore