compte des couleur dans excel

  • Initiateur de la discussion Initiateur de la discussion CED59
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

CED59

XLDnaute Nouveau
bonjour j'ai fait un planning et je n'arrive pas a mettre les bonnes formules pour compter les couleurs dans les cases
ci joint une copi de mon fichier avec des bulle explicative de ce que je desir
merci
 

Pièces jointes

Dernière édition:
Re : compte des couleur dans excel

Bonjour à tous,

Ton fichier avec un fonction de Ti🙂,

Code:
Option Explicit

Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long 'Ti sur VeriTi
Dim Cel As Range
  For Each Cel In Plage.Cells
    If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
  Next Cel
End Function
A+

Edition : Salut Roro ;-)
 
Dernière édition:
Re : compte des couleur dans excel

Bonjour,
en utilisant une fonction personnalisée de JB (Boisgontier)
regarde le fichier joint, le calcul se fait dès que tu changes de sélection sur ta feuille ou à l'appui sur F9 (Calculer)

Edit : Salut Jc🙂
presque la même fonction, la différence, la couleur comptabilisée est la couleur de la cellule appelante pour moi, le chiffre de la couleur pour toi....
Bonne soirée
 

Pièces jointes

Re : compte des couleur dans excel

Re,
Salut BH*2 🙂,

Même en rajoutant un Application.Volatile le recalcul ne se fait pas avec le code l'ami Ti (il est vrai que cette fonction n'était pas pour un recalcul au départ)
Après un rajout de _Change sur la feuille et Calculate cela joue mieux

A+
 
Re : compte des couleur dans excel

Bonjour,

Sur Excel 2007, où le nombre de couleurs est 255x255x255, on peut utiliser
Color au lieu de ColorIndex.

Code:
Function CompteCouleurFond2(champ As Range)
   Application.Volatile
   couleurFond = Range(Application.Caller.Address).Interior.Color
   Dim c, temp
   temp = 0
   For Each c In champ
     If c.Interior.Color = couleurFond Then
       temp = temp + 1
     End If
   Next c
   CompteCouleurFond2 = temp
End Function

JB
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
40
Affichages
2 K
Réponses
1
Affichages
286
Réponses
8
Affichages
525
  • Question Question
Microsoft 365 sos planning
Réponses
6
Affichages
844
Retour