Bonjour,
Aucune des fonctions d'Excel ne permet de déterminer si on a appliqué à une cellule un remplissage rouge!
Par ailleurs, tu aurais pu évoquer cette particularité dès le départ ... ça nous aurait évité de chercher pour rien
La seule solution à ma connaissance serait de créer une fonction personnalisée.
Voici une ébauche à tester, adapter, améliorer, etc.
Dans un module standard, coller ces lignes de code:
Function NBSI_PASROUGE(nom As Range, plage As Range)
Dim cpt As Integer
For Each c In plage
If c = nom And c.Interior.Color <> 255 Then cpt = cpt + 1
Next c
NBSI_PASROUGE = cpt
End Function
Ensuite, en D8 de la feuille synthèse, écrire:
=NBSI_PASROUGE($B8;INDIRECT("'"&D$7&"'!$B$5:$C$50"))
Recopier en bas et à droite.
Ne fonctionnera que pour les palettiers (adapter la plage B5:B50 dans la formule pour les autres "métiers")