Nombre de fois qu'apparaît une couleur déterminée dans un tableau

[Magic_Doctor]

Bonjour,

J'ai un tableau principal dont les cellules peuvent avoir différentes couleurs puisées dans un autre tableau où sont référenciées toutes les couleurs que peuvent avoir les cellules du tableau principal.
Je voudrais connaître par formule (et non par VBA) le nombre de fois qu'apparaît chaque couleur dans le tableau principal.
Le mieux est de consulter le fichier ci-joint où ma question sera nettement plus claire.

En vous remerciant d'avance de votre aide.

 

[MichD]

Re : Nombre de fois qu'apparaît une couleur déterminée dans un tableau

Bonjour,

Voici ton fichier en retour.

 

[Magic_Doctor]

Re : Nombre de fois qu'apparaît une couleur déterminée dans un tableau

Merci beaucoup MichD, c'est exactement ce que je voulais.
Bravo pour la fonction !
J'ai en effet un penchant pour les fonctions.

Très bonne journée.

 

[R@chid]

Re : Nombre de fois qu'apparaît une couleur déterminée dans un tableau

Bonjour @ tous,

Je voudrais connaître par formule (et non par VBA) le nombre de fois qu'apparaît chaque couleur dans le tableau principal.

Tu peux le faire par formule à l'aide du MacroXL4 qu'on peut le définir dans le gestionnaire de noms =LIRE.CELLULE(38;CelluleRef), mais il faut des colonnes intermédiaires, et malgré tout les résultats ne sont pas précis car elle ne connait que 56 couleur peut être, donc avec les versions récentes et les nouvelles couleurs on aura un grand probleme...
@ + +

 

[BOISGONTIER]

Re : Nombre de fois qu'apparaît une couleur déterminée dans un tableau

Bonjour,

La cellule avec le no de couleur est inutile.
La couleur de fond de référence peut être calculée automatiquement.

Function NbCouleurFond(champ As Range, couleurFond As Range)
  Application.Volatile
  Dim c, temp
  For Each c In champ
    If c.Interior.Color = couleurFond.Interior.Color Then temp = temp + 1
  Next c
  NbCouleurFond = temp
End Function

Fonction CompteCouleurFond

JB

 

[job75]

Re : Nombre de fois qu'apparaît une couleur déterminée dans un tableau

Bonjour le fil,

La fonction Nb_Couleur écrite un peu plus simplement :

Function Nb_Couleur&(r As Range, Couleur As Range)
Application.Volatile
For Each r In r
  If r.Interior.Color = Couleur.Interior.Color Then _
    Nb_Couleur = Nb_Couleur + 1
Next
End Function

A+

 

[MichD]

Re : Nombre de fois qu'apparaît une couleur déterminée dans un tableau

Es-tu sûr que la fonction que tu as publiée fonctionne?

 

[job75]

Re : Nombre de fois qu'apparaît une couleur déterminée dans un tableau

Bonjour MichD,

Je te laisse tester.

J'utilise très souvent cette manière de faire.

Mais il faut faire attention : dans certains cas se servir de l'argument comme variable peut créer des problèmes.

A+

 

[job75]

Re : Nombre de fois qu'apparaît une couleur déterminée dans un tableau

Re,

Ce qu'il faut avoir bien compris : dans une boucle For... Next la ligne avec For n'est exécutée qu'une fois.

A+