Excel calculer par couleur de remplissage [Résolu]

Réponse 2 / 8

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
28 sept. 2009 à 21:25

Salut,

Une petite fonction personnalisée à coller dans un module
Ensuite Insertion/Fonction/Sélectionner Personnalisé/Sélectionner CompteCelluleCouleur
Dans Plage_à_Contrôler saisir les références de la plage
Dans Cellule_de_référence saisir la cellule qui coloré qui servira d’index couleur (personnellement je me sers de la cellule dans la quelle je saisi la fonction)
Il suffit de coloriser la cellule de référence pour avoir le compte.

Function CompteCelluleCouleur(Plage_à_Contrôler As Object, Cellule_de_référence As Range) As Integer
Application.Volatile True
CompteCelluleCouleur = 0
MaCoul = Cellule_de_référence.Interior.ColorIndex
For Each cell In Plage_à_Contrôler
If cell.Interior.ColorIndex = MaCoul Then CompteCelluleCouleur = CompteCelluleCouleur + 1
Next cell
End Function

Pour activer la fonction clic sur F9
Ou mettre dans les propriétés de la feuille ce code si A1 est et reste vide ou changer la référence

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = ""
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé (Einstein)

Réponse 3 / 8

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
3 avril 2014 à 18:52

Bonjour,

l'idéal aurait été d'ouvrir ta propre discussion, récupère ton fichier, pour compter des couleurs manuelles, il faut passer par du VBA.
Pour cela il faut aller dans le Visual Basicv d'Excel, clic droit sur l'onglet de feuille et Visualiser le code ou combiner la touche Alr et la touche de fonction F11
créer un module (Insertion/Module) dans lequel on colle ce code

Function sommecouleur(Plage_à_contrôler, Modèle As Range)
Dim c As Range
Dim montotal As Double
Application.Volatile True
For Each c In Plage_à_contrôler
If c.Interior.ColorIndex = Modèle.Interior.ColorIndex Then
montotal = montotal + 1
End If
Next
sommecouleur = montotal
End Function

pour accélérer le calcul dans les propriétés de la feuille du Visual j'ai collé ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

ensuite sur la feuille de calcul j'appelle la fonction dans ton fichier en cellule FC5 (Formules/Fonction/Personnalisé/sélectionner Sommecouleur

comme tes cellules vont par 4, j'ai divisé le résultat par 4

Un classeur contenant des codes VBA doit être enregistré sous l'extension XLS ou XLSM

https://www.cjoint.com/c/DDds0s4g0KS

La galère 13 Messages postés 7 Date d'inscription mercredi 4 décembre 2013 Statut Membre Dernière intervention 3 avril 2014
3 avril 2014 à 22:32

UN IMMENSE MERCI! C'est exactement ce qu'il me fallait!

Vous ne pouvez pas imaginer à quel point vous m'avez rendu service!

MERCI MERCI MERCI et de ma collègue aussi!

Cob
17 déc. 2015 à 12:02

Merci Mike! Exactement ce que je cherchais!

Réponse 4 / 8

ponpon
28 sept. 2009 à 17:12

Bonjour,
Une idée, vous coller cette fonction dans le Module1 (ouvrir l’éditeur VBA : touche Alt+F11)

Function NumCoulCel(C As Object)
Application.Volatile True
NumCoulCel = Abs(C.Interior.ColorIndex)
End Function

En C4 la formule : =numcoulcel(C4) (vous trouve le numéro de la couleur de remplissage)
Tirer la formule vers le bas.

Ensuite vous comptez avec =NB.SI(C4:C18;3) pour rouge et =NB.SI(C4:C18;14)

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
28 sept. 2009 à 16:57

Salut,

Ca dépend de la façon de la colorisation des cellules, si tu passes par une mise en forme conditionnelle, il est possible d'intégrer dans la formule la prise en compte de cette mise en forme conditionnelle

si nombre de couleurs est supérieur à 3 conditionnelles + une

si tu as quelques notions en VBA, avec un petit code

A+
Mike-31

Un problème sans solution est un problème mal posé (Einstein)

Réponse 6 / 8

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
28 sept. 2009 à 23:35

Re,

J'ai repris la discussion et revu ma fonction pour totaliser toutes les couleurs

Function CompteCellulesCouleur(Plage_à_Contrôler As Object) As Integer
Application.Volatile True
CompteCellulesCouleur = 0
For Each Cell In Plage_à_Contrôler
If Cell.Interior.ColorIndex <> xlNone Then CompteCellulesCouleur = CompteCellulesCouleur + 1
Next Cell
End Function

A+
Mike-31

Un problème sans solution est un problème mal posé (Einstein)

xx1234
23 déc. 2009 à 13:27

salut mike
j'avais aussi besoin d'une telle formule, merci bcp

par contre, je constate que le code vba va bien, mais ce que j'aurai voulu faire
c'est d'avoir le total des toutes les cellules jaune, et celui des rouges, etc...

est-ce que tu peux m'aider, dois-je juste complèter la macro que tu as faite
ou s'agit-il d'un autre code.

je te remercie d'avance pour tes infos

à bientôt

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073 > xx1234
23 déc. 2009 à 14:03

Salut XX1234,

Tu aurais dû ouvrir ta propre discussion.

Mais pour te répondre, le code est légérement différent, colles le code ci-dessous dans un module et Insertion/Fonction/Personnalisé Dans plage à contrôler détermines la plage et dans Modèle fais référence à une cellule contenant la couleur, elle peut être la cellule qui contient le compteur.
Comme toute fonction, pour actualiser la mise à jour du compteur après colorisation d'une cellule clic sur la touche F9 ou complèter le code. Je serais de retour dans la soirée

Function sommecouleur(Plage_à_contrôler, Modèle As Range)
Dim c As Range
Dim montotal As Double
Application.Volatile True
For Each c In Plage_à_contrôler
If c.Interior.ColorIndex = Modèle.Interior.ColorIndex Then
montotal = montotal + 1
End If
Next
sommecouleur = montotal
End Function

Dogosh Messages postés 1 Date d'inscription mardi 27 octobre 2015 Statut Membre Dernière intervention 27 octobre 2015
27 oct. 2015 à 15:48

Bonjour Mike,

Je voulais vérifier une chose sur le code que vous avez donnée.

D'après ce que j'ai compris dans la condition vous vérifier que la couleur de fond de chaque cellule est différente de "non rempli" donc qu'il y ai une couleur.

Moi je cherche à compter les cellules non vide qui n'ont pas de couleur donc est ce que si je remplace "<>" par "=" ça va fonctionner (j'ai déjà essayer et je reste à 0)

Cordialement

Réponse 7 / 8

mitch83 Messages postés 1 Date d'inscription lundi 28 septembre 2009 Statut Membre Dernière intervention 29 septembre 2009
29 sept. 2009 à 08:50

Alors là je suis épaté par votre réactivité, je vais essayé tout ca de ce pas , mais je vous remercie d'ors et déjà ;)
Je vous tiens au courant.
Merci

Réponse 8 / 8

La galère 13 Messages postés 7 Date d'inscription mercredi 4 décembre 2013 Statut Membre Dernière intervention 3 avril 2014
3 avril 2014 à 18:20

Bonjour,

Je vois ce sujet qui date certes mais qui m'intéresse beaucoup. Malheureusement je suis pas très calée en Excel! Je voudrais aussi avoir un total en fonction de la couleur des cellules. J'ai essayé ce que vous dites mais rien n'y fait ça marche pas... Ma cellule de référence est FA1. Après à chaque vacation mise je veux savoir en colonne EX le nombre d'heure par agent car je dois pas dépasser le nombre qui est dans la colonne EY.

Si vous pouvez m'aider mille mercis si vous pouvez pas merci d'avoir au moins lu!

https://www.cjoint.com/?DDdstXJyywP

Margot

Excel calculer par couleur de remplissage

8 réponses

Discussions similaires

Newsletters