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

M

MichD

XLDnaute Impliqué

• 3 Février 2013

• #2

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

Bonjour,

Voici ton fichier en retour.

 

Pièces jointes

• Nb de chaque couleur.xlsm

  18.6 KB · Affichages: 116
• Nb de chaque couleur.xlsm

  18.6 KB · Affichages: 118
• Nb de chaque couleur.xlsm

  18.6 KB · Affichages: 122

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 3 Février 2013

• #3

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.

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

• 3 Février 2013

• #4

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.

Cliquez pour agrandir...

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...
@ + +

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Février 2013

• #5

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.

Code:

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

 

Pièces jointes

• Copie de Nb de chaque couleur.xlsm

  18.9 KB · Affichages: 59

Dernière édition: 3 Février 2013

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2013

• #6

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 :

Code:

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+

 

Vote positif 0 Vote négatif

M

MichD

XLDnaute Impliqué

• 3 Février 2013

• #7

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?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2013

• #8

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2013

• #9

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+

 

Vote positif 0 Vote négatif