Additionner les cellules de couleurs

Bonjour,

Plus que novice sur Excel, j'ai bien vu que le sujet a été traité maintes fois mais je ne comprends rien...Créer des macros, visual basic, ... je mélange tout.

Comment faire pour faire le total des cellules de couleur à l'intérieur desquelles il y a un texte ?

Par exemple, j'ai 10 cellules rouges avec un texte à l'intérieur, comment faire pour indiquer dans une cellule "Somme de toutes les cellules rouges".

Je vous joins mon fichier pour plus de compréhension.

Je remercie d'avance la (ou les) personne(s) qui aura (ou auront) la patience de répondre une fois de plus.

Bonsoir,

une autre approche ,formules a adapter

=NB.SI(A:A;"Resto Rapide")

A +

essaye ça et dis moi

au plasirs

Bonsoir,

voici un code pour faire la somme des cellule d'une couleur donnée ; dans la 5ème ligne, remplacer CellValue par 1 pour compter les cellules d'une couleur donnée :

Function SommeCouleur(plage As Range, CelCouleur As Range) As Long
couleur = CelCouleur.Interior.ColorIndex
SommeCouleurs = 0
For Each Cell In plage
If Cell.Interior.ColorIndex = couleur Then SommeCouleurs = SommeCouleurs + Cell.Value
Next
End Function

Bonjour,

Un grand merci à tous ! Ca fonctionne, quelle délivrance ! J'ai tout compris.

Encore merci et bonne soirée !