Perdu sur calcul de cellule couleur

Bonjour à tous;

Je me permet de vous soumettre un problème avec mon tableau (bien que le sujet a déjà dû être soumis, mais pas trouvé la solution à "MON" problème)

Je possède quatre feuille dans mon classeur, chaque tableau correspond à un groupe d'employé, et il faudrait pour chaque employé (cf ci joint le tableau) au bout de chaque ligne, j'ai le total de nombre de cellule rouge, jaune , vert etc....j'ai essayé plein de choses, mais rien qui ne me convienne.

Si quelqu'un trouve il sera mon sauveur

Merci d'avance

Bonjour,

Dans ton fichier, supprime les macros actuelles puis place le code ci-dessous dans un module :

Function SumParCouleur(PlageEntree As Range, CouleurFond As Variant) As Double
Dim Cel As Range, TempSum As Double, macouleur As Variant
macouleur = CouleurFond.Cells(1, 1).Interior.ColorIndex
Somme = 0
Application.Volatile
On Error Resume Next
For Each Cel In PlageEntree
    If Cel.Interior.ColorIndex = macouleur Then Somme = Somme + 1
Next Cel
On Error GoTo 0
Set Cell = Nothing
SumParCouleur = Somme
End Function

• Dans la feuille de l'Employé, mets cette formule en DC6 --> =SumParCouleur($C6:$DB6;DC$5)
• recopie cette formule à droite pour les autres couleurs en changeant le DC vers DD, DE, DF....
• Recopie ensuite les formules vers la bas

Attention à tes couleurs dans ton tableau qui doivent évidemment correspondre à celles entre DC5 et DG 5.

Certaines couleurs ne sont pas identiques. Le jaune notamment.

Amicalement

Bonjour,

Un autre essai dans le module 3.

Function NbCouleur(Tgt As Range, Plage As Range)
Dim Cel As Range, I%
I = 0
For Each Cel In Plage
    If Cel.Interior.ColorIndex = Tgt.Interior.ColorIndex Then I = I + 1
Next
Set Cel = Nothing
NbCouleur = I
End Function

Cdlt,

Darzou

Avant même de tester vos solutions, je tiens à vous remercier pour vos réponses rapide, pfiiuu c'est énorme, merci à la communauté du forum, un grand respect à vous

Je test et jvous tiens au courant.

Super toute vos solutions fonctionne, merci à tous!!!

Vous m'avez sauvé!

Bonjour je me permet de revenir vers vous avec la soluce que vous m'avez donné est il possible de calculer uniquement la cellude droite, je ne sais pas si vous voyez ce que je veux dire, c'est à dire sur l'exemple de mon tableau : d4, f4, h4, avec cette même récurrence sur toute la ligne?

D'avance merci les loulous.

Bonsoir,

Dans mon précédent code,

Function NbCouleur(Tgt As Range, Plage As Range)
Dim Cel As Range, I%
I = 0
For Each Cel In Plage
    If Cel.Interior.ColorIndex = Tgt.Interior.ColorIndex Then I = I + 1
Next
Set Cel = Nothing
NbCouleur = I
End Function

en changeant l'argument "Plage" en D6;F6;... au lieu de C6:DB6

ou sinon avec ce code:

Function NbCouleur2(Tgt As Range, Plage As Range)
Dim Cel As Range, I%
I = 0
For Each Cel In Plage
    If 2 Mod (Cel.Column) = 0 Then
        If Cel.Interior.ColorIndex = Tgt.Interior.ColorIndex Then I = I + 1
    End If
Next
Set Cel = Nothing
NbCouleur2 = I
End Function

qui va compter seulement les colonnes paires. Vous pouvez donc laisser ici C6:DB6 comme argument plage pour la première ligne.

Cdlt,

Darzou

super merci beaucoup!c'était évident, mais vous l'avez trouvé, encore merci