Fonction Compte Couleurs

[Claudy]

Bonjour,
dans une feuille (Recap) j'utilise la fonction Couleurs:

Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Dim c As Range
For Each c In Plage.Cells
If c.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next c
End Function

Et cette formule ne marche que qq fois! (Dans ma feuille Recap

Voir mon fichier joint
Pour déclencher le USF de remplissage auto, il suffit de double cliquer sur un nom

Merci pour votre aide précieuse,
Claudy

 

[JNP]

Re : Fonction Compte Couleurs

Bonjour Claudy 🙂,
Personnellement, je péfère travailler avec Color qu'avec ColorIndex 😛, et plutôt avec une référence de cellule 🙄.
Teste ce code, je pense que ça ira mieux 😉...

Function Couleurs(Plage As Range, Référence As Range) As Long
Dim c As Range
For Each c In Plage
If c.Interior.Color = Référence.Interior.Color Then Couleurs = Couleurs + 1
Next c
End Function

Bon courage 😎

 

[Gorfael]

Re : Fonction Compte Couleurs

Salut Claudy et le forum
Utilise les balises de code (icone #, mode avancé)

Et cette formule ne marche que qq fois! (Dans ma feuille Recap

Rappel : pas de devin, ni de télépathe sur ce site !
Toutefois, comme c'est un problème récurent, il suffit généralement d'ajouter l'instruction volatile, pour obliger une mise à jour à chaque calcul de la feuille.

Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Dim c As Range
Application.Volatile
For Each c In Plage.Cells
    If c.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next c
End Function

A+

 

[Claudy]

Re : Fonction Compte Couleurs

Ok, merci à vous deux, c'est nickel!
J'ose espèrer que mon fichier pourra servir à d'autres en guise de remerciement!
Bon we de pâques,
Claudy