Comptage de cellules couleur


#1

Bonjour à tous,

Je me casse le nez sur un problème simple… Je cherche à compter les cellules de couleur dans un classeur. Rien de bien compliqué à priori !!! J’ai une cellule de couleur, à côté, je mets la formule =couleur(adresse de la cellule d’à côté) et j’ai #NOM?. Où ais-je fait l’erreur ?

Merci de votre aide.

Bon Dimanche, DMT


#2

Bonjour @DMT,

Je suppose sans fichier que tu dois oublier de faire référence à la cellule de couleur.
Ex: =couleur(adresse de la cellule d’à côté ;cellule de référence ), ici la cellule de référence est la couleur.
En A1 cellule de référence rouge.
En D1:D20 cellules à compter.
Formule: =couleur(D1:D20;A1)

Est-ce que cela résout le problème ? Sinon peux-tu fournir un fichier ?

Cordialement.


#3

Bonjour mdo100,
Je te joins un exemple de mon pb, regarde ce que j’ai écrit et tape moi dessus si je le mérite…
DMTExemple.xlsx (8,6 Ko)


#4

Re @DMT,

Ça ne pouvait pas fonctionner, puisqu’il y manquait le code VBA essentiel pour ce genre de requête Excel.

Il s’agit d’un petit programme qui se trouve dans l’éditeur de macro VBA, pour y accéder, dans ta feuille Excel, tu tapes alt + F11 et tu y verras cette fonction programme, permettant de compter les couleurs dans Excel.

Option Explicit
Function couleur(range_data As Range, criteria As Range) As Long
 Dim datax As Range
 Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
 If datax.Interior.ColorIndex = xcolor Then
 couleur = couleur + 1
 End If
Next datax
End Function

Comme je le disais plus haut, dans ta feuille il faut écrire par exemple:

=couleur(E2:E25;A1)

Ci joint un fichier Excel pour l’exemple.
DMT V1.xlsm (17,0 Ko)

Ça ne ferait pas avancer le schmilblick :wink:

Cela te convient-il ?

Cordialement.


#5

Merci beaucoup, évidement que ça marche mieux … il est “bourin” le DMT.

Bonne soirée et à plus pour t’exposer un autre problème aussi simple :grinning: