Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Somme des cellules au fond rouge..

Somme des cellules au fond rouge..

9 réponses
Avatar
ruiz
Bonjour,

je recherche une formule pour une cellule qui serait par
exemple la somme de toutes les cellules de fond rouge...

c'est possible ???

si oui, ou trouver les codes des couleurs ?

Merci
ruiz@free.fr
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
zrd
salut,

"" a écrit dans le message
news: 08c201c3d91a$74591c80$
Bonjour,
je recherche une formule pour une cellule qui serait par
exemple la somme de toutes les cellules de fond rouge...
c'est possible ???
si oui, ou trouver les codes des couleurs ?
Merci



Je ne sai pas quelle serait la solution mais je ferais ceci :
dans une colonne (ou ligne) parallele aux cellules concernees, je mettrais
la mm formule de mise en forme conditionnelle,
mais le resultat serais d'y mettre un 1
ensuite je ferais la somme des cellules qui ont un 1 pour voisin.

c'etait clair ca comme explication ?

@+

Avatar
Christian M
Bonjour,

en VBA trouvé sur le site http://dj.joss.free.fr/cellule.htm

Compte le nombre de cellules colorées en rouge de la sélection

Sub NombredeCellRouge()
Dim Cellule As Range
Dim total As Variant
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 3 Then 'rouge
total = total + Cellule.Count
End If
Next
MsgBox "Il y a " & total & " Cellules rouges"
Range("A1") = total
End Sub

Est-ce que cela te conviens ?

--
Christian M
Adresse anti-spam :
http://www.cerbermail.com/?9mv8U5g4zk
---------------------------
"" a écrit dans le message
de news:08c201c3d91a$74591c80$
Bonjour,

je recherche une formule pour une cellule qui serait par
exemple la somme de toutes les cellules de fond rouge...

c'est possible ???

si oui, ou trouver les codes des couleurs ?

Merci



Avatar
papou
Bonjour ruiz
c'est possible ???
Oui :

Fonction personnalisée ici
http://www.excelabo.net/xl/formats.php#additionrouge

si oui, ou trouver les codes des couleurs ?
Ici encore ! - normal c'est le numéro UN des sites Excel - en tout cas chez

moi :-)
http://www.excelabo.net/xl/formats.php#chartescouleurs

Cordialement
Pascal

"" a écrit dans le message
de news:08c201c3d91a$74591c80$
Bonjour,

je recherche une formule pour une cellule qui serait par
exemple la somme de toutes les cellules de fond rouge...

c'est possible ???

si oui, ou trouver les codes des couleurs ?

Merci



Avatar
michelB
Bonjour


Trouvé sur ce forum, il y a longtemps 2 fonctions, l'une pour le fond rouge,
l'autre pour la police noire :

Additionne les cellules dont le fond est rouge
Function addRed(myCells)

Application.Volatile True

addRed = 0

For Each cel In myCells

If cel.Interior.Color = vbRed Then addRed = addRed + cel.Value

Next

End Function



Function addPoliceNoir(myCells) ' Police noire

'suppose que couleur auto = noir

Application.Volatile True

addPoliceNoir = 0

For Each cel In myCells

If cel.Font.ColorIndex = xlAutomatic Or _

cel.Font.ColorIndex = 1 Then addPoliceNoir _

= addPoliceNoir + cel

Next

End Function

ET ensuite utilise ta fonction avec entre () la plage de cellules concernée.


--
Salut
Michel ---- ;o)

wrote:
Bonjour,

je recherche une formule pour une cellule qui serait par
exemple la somme de toutes les cellules de fond rouge...

c'est possible ???

si oui, ou trouver les codes des couleurs ?

Merci



Avatar
AV
Gros inconvénient :
Un changement de format de cellule n'entraine pas de recalcul donc les résultats
de ce type de fonction perso sont trés aléatoires
"Application.Volatile True" ne sert que si "autre chose" déclenche le recalcul
Moralité : utiliser un format conditionnel pour barbouiller les cellules, permet
d'intégrer les même critères pour un "SommeSiCouleur"

AV
Avatar
Daniel.M
100% d'accord.

C'est non seulement clair, c'est AMA la seule manière qui permet de faire en
sorte d'associer la condition avec le moteur de (re)calculation d'Excel (avec
recalcul automatique qui s'effectue si et seulement si on change les cellules de
dépendance).

Salutations,

Daniel M.

"zrd" wrote in message
news:%
salut,

"" a écrit dans le message
news: 08c201c3d91a$74591c80$
Bonjour,
je recherche une formule pour une cellule qui serait par
exemple la somme de toutes les cellules de fond rouge...
c'est possible ???
si oui, ou trouver les codes des couleurs ?
Merci



Je ne sai pas quelle serait la solution mais je ferais ceci :
dans une colonne (ou ligne) parallele aux cellules concernees, je mettrais
la mm formule de mise en forme conditionnelle,
mais le resultat serais d'y mettre un 1
ensuite je ferais la somme des cellules qui ont un 1 pour voisin.

c'etait clair ca comme explication ?

@+





Avatar
Jacquouille
Bonsoir
Je n'ai jamais aimé compter les cel de couleur issues d'une MEFC car les
modifications emm..le truc, comme l'a très bien dit Monsieur le Président.
Pourquoi ne te sers-tu pas de la condition de la MEFC pour calculer tes cel?
Pour le code couleur, voir Disciplus ou ce filet de macro à faire
fonctionner sur une feuille blanche.
----------
' Macro pondue le 10/01/04
Proc couleurs()
Colonnes("A:A").Sélectionner
Sélection.LargeurColonne = 50 'pour bien voir
Lignes("1:56").Sélectionner
Sélection.HauteurLigne = 30 'idem

Pour Chaque c Dans Plage("A1:A56")
Pour i = 1 à 56
Plage("a" & i) = i '= num des codes couleurs
Suivant
Suivant

Pour Chaque c Dans Plage("A1:A56")
c.Intérieur.IndexCouleur = [c] 'barbouille suivant code
Suivant
[A1].Sélectionner 'manière de voir où on est.
Fin Proc

--
Jacquouille conseille : http://www.excelabo.net


"" a écrit dans le message
news: 08c201c3d91a$74591c80$
Bonjour,

je recherche une formule pour une cellule qui serait par
exemple la somme de toutes les cellules de fond rouge...

c'est possible ???

si oui, ou trouver les codes des couleurs ?

Merci



Avatar
Christian M
Jacquouille, qui a dit que c'était une MFC ? La question initiale concerne
une cellule rouge ! ;-)

--
Christian M
Adresse anti-spam :
http://www.cerbermail.com/?9mv8U5g4zk
---------------------------
"Jacquouille" a écrit dans le message de
news:
Bonsoir
Je n'ai jamais aimé compter les cel de couleur issues d'une MEFC car les
modifications emm..le truc, comme l'a très bien dit Monsieur le Président.
Pourquoi ne te sers-tu pas de la condition de la MEFC pour calculer tes
cel?

Pour le code couleur, voir Disciplus ou ce filet de macro à faire
fonctionner sur une feuille blanche.
----------
' Macro pondue le 10/01/04
Proc couleurs()
Colonnes("A:A").Sélectionner
Sélection.LargeurColonne = 50 'pour bien voir
Lignes("1:56").Sélectionner
Sélection.HauteurLigne = 30 'idem

Pour Chaque c Dans Plage("A1:A56")
Pour i = 1 à 56
Plage("a" & i) = i '= num des codes couleurs
Suivant
Suivant

Pour Chaque c Dans Plage("A1:A56")
c.Intérieur.IndexCouleur = [c] 'barbouille suivant code
Suivant
[A1].Sélectionner 'manière de voir où on est.
Fin Proc

--
Jacquouille conseille : http://www.excelabo.net


"" a écrit dans le
message

news: 08c201c3d91a$74591c80$
Bonjour,

je recherche une formule pour une cellule qui serait par
exemple la somme de toutes les cellules de fond rouge...

c'est possible ???

si oui, ou trouver les codes des couleurs ?

Merci







Avatar
Jacquouille
L'expérience, mon cher.
Et puis, la MEFC peut être manuelle. L'auteur colorie ses cellules suivant
un critère bien à lui.
Donc il est possible de calculer suivant ce critère. Et s'il n'y en a
aucun, nous avons aussi ALEA()
Alllez, allez, aaaallez les rouch. -)


--
Jacquouille conseille : http://www.excelabo.net


"Christian M" a écrit dans le message news:

Jacquouille, qui a dit que c'était une MFC ? La question initiale concerne
une cellule rouge ! ;-)

--
Christian M
Adresse anti-spam :
http://www.cerbermail.com/?9mv8U5g4zk
---------------------------
"Jacquouille" a écrit dans le message de
news:
Bonsoir
Je n'ai jamais aimé compter les cel de couleur issues d'une MEFC car les
modifications emm..le truc, comme l'a très bien dit Monsieur le
Président.


Pourquoi ne te sers-tu pas de la condition de la MEFC pour calculer tes
cel?

Pour le code couleur, voir Disciplus ou ce filet de macro à faire
fonctionner sur une feuille blanche.
----------
' Macro pondue le 10/01/04
Proc couleurs()
Colonnes("A:A").Sélectionner
Sélection.LargeurColonne = 50 'pour bien voir
Lignes("1:56").Sélectionner
Sélection.HauteurLigne = 30 'idem

Pour Chaque c Dans Plage("A1:A56")
Pour i = 1 à 56
Plage("a" & i) = i '= num des codes couleurs
Suivant
Suivant

Pour Chaque c Dans Plage("A1:A56")
c.Intérieur.IndexCouleur = [c] 'barbouille suivant code
Suivant
[A1].Sélectionner 'manière de voir où on est.
Fin Proc

--
Jacquouille conseille : http://www.excelabo.net


"" a écrit dans le
message

news: 08c201c3d91a$74591c80$
Bonjour,

je recherche une formule pour une cellule qui serait par
exemple la somme de toutes les cellules de fond rouge...

c'est possible ???

si oui, ou trouver les codes des couleurs ?

Merci