Bonjour
Ton tableau C6:BL59 contient des cellules vides et des cellules blanches.
1) Tu sélectionnes ce tableau et dans la palette, tu sélectionnes "Aucun remplissage". Tes cellules, dès det instant ont un Code couleur de -4142
2) Dans le Code de la Feuille semaine 1, tu colles ce Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
3) Dans un Module, tu colles ce Code
Function NBSiCouleur(Plage As Range, NumeroDeCouleur%) As Long
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = -4142 Then
NBSiCouleur = NBSiCouleur + wCell.Count
End If
Next
End Function
Ta plage C à BL contient 62 cellules
La fonction personnalisée compte le nombre de cellules dont le Code couleur est égal à -4142 donc, si en ligne 6 tu as 4 cellules de couleur, la formule
=(62-NBSICouleur(C6:BL6;-4142))/4
renvoie le nombre de cellules de couleur divisé par 4 (ou X par 0,25)
Fichier joint
Cordialement