Alors j'ai réussi à trouver une fonction qui fonctionne super bien quand les celluces sont colorées en direct je veux dire quand on mets des cellules rouges directement mais moi mes cellules sont rouges via une MFC donc ça ne fonctionne pas / est ce que je dois rajouter un morceau de vba dans cette fonction ...???? voici la fonction qui fonctionne
Function Nombre_de_cellules_en_couleur(Ma_Plage As Range, Couleur As Range) As Double
Dim Cel As Range
Dim Compteur As Integer
Dim La_Couleur As Integer
Compteur = 0
La_Couleur = Couleur.Interior.ColorIndex
For Each Cel In Ma_Plage
If Cel.Interior.ColorIndex = La_Couleur Then
Compteur = Compteur + 1
End If
Next Cel
Nombre_de_cellules_en_couleur = Compteur
End Function
Function Nombre_de_cellules_en_couleur(Ma_Plage As Range, Couleur As Range) As Double
Dim Cel As Range
Dim Compteur As Integer
Dim La_Couleur As Integer
Compteur = 0
La_Couleur = Couleur.Interior.ColorIndex
For Each Cel In Ma_Plage
If Cel.Interior.ColorIndex = La_Couleur Then
Compteur = Compteur + 1
End If
Next Cel
Nombre_de_cellules_en_couleur = Compteur
End Function