OVH Cloud OVH Cloud

Somme conditionnelle des valeurs de cellules coloriées

2 réponses
Avatar
Serge Allègre
Bonjouratous (ratoutes) !
Un petit pas (problème) pour l'Homme (ou la femme qui me répondra)
Un grand pas pour l'Humanité (moi, en toute modestie).
Trève de plaisanterie.

Qui peut me donner une solution, simple si possible, au problème suivant :
Comment faire la somme arithmétique des valeurs
contenues dans les cellules que j'ai coloriées en jaune (par exemple).
Et comment l'appliquer aux autres couleurs ?

Mercitrébocou.

2 réponses

Avatar
Jacquouille
Bonsoir Serge Mercitrébocou
Dans ma signature, il y a l'adresse du site De madame Flo, Excelabo.net.
Tu y vas et là, ô surprise, tu trouves The truc pour additionner toutes les
cellules de même couleur.
Et, si par hasard, il ne s'agissait pas de la bonne couleur, tu zieute de
nouveau à la page peinturlure et tu trouves le tableau des coluleurs et leur
code.
-
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"Serge Allègre" a écrit dans le message de
news:4156f2a0$0$17109$
Bonjouratous (ratoutes) !
Un petit pas (problème) pour l'Homme (ou la femme qui me répondra)
Un grand pas pour l'Humanité (moi, en toute modestie).
Trève de plaisanterie.

Qui peut me donner une solution, simple si possible, au problème suivant :
Comment faire la somme arithmétique des valeurs
contenues dans les cellules que j'ai coloriées en jaune (par exemple).
Et comment l'appliquer aux autres couleurs ?

Mercitrébocou.


Avatar
Philippe.R
Bonsoir Serge,
Il existe un certain nombre de fonctions logiques natives d'Excel (SI(), OU(), ET(), SOMMEPROD(),
SOMME.SI()) qui permettent d'additionner des nombres sous certaines conditions ; c'est la solution la
plus simple.
Si toutefois aucune ne répond à ton besoin et que la seule logique est le fait que la cellule soit
coloriée, il faudra recourir à un peu de programmation.
Voici donc une fonction personnalisée (adaptée d'une publication assez récente signée JF sur ce forum)
qui le fait :

'"========================début de copie====================="
Public Function SommeCouleur(rSelection As Range) As Double
'additionne les valeurs des cellules dont la couleur est
' identique à celle comportant la fonction
Dim rCell As Range
Dim dTotal As Double
Dim iCouleur As Integer
iCouleur = ActiveCell.Interior.ColorIndex
dTotal = 0
For Each rCell In rSelection
If iCouleur = rCell.Interior.ColorIndex And IsNumeric(rCell.Value) _
Then dTotal = dTotal + rCell.Value
Next
SommeCouleur = dTotal
End Function
'"===========================fin de copie====================="

à coller dans un module standard via l'éditeur Visual Basic (Alt+F11 / sélection du nom du classeur dans
la fenêtre de gauche / insertion / module)

Dans une cellule de ta feuille que tu auras coloriée de la couleur choisie, tu saisiras
=sommecouleur(a1:a55) par exemple
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Serge Allègre" a écrit dans le message de
news:4156f2a0$0$17109$
Bonjouratous (ratoutes) !
Un petit pas (problème) pour l'Homme (ou la femme qui me répondra)
Un grand pas pour l'Humanité (moi, en toute modestie).
Trève de plaisanterie.

Qui peut me donner une solution, simple si possible, au problème suivant :
Comment faire la somme arithmétique des valeurs
contenues dans les cellules que j'ai coloriées en jaune (par exemple).
Et comment l'appliquer aux autres couleurs ?

Mercitrébocou.