Bonjour à tous,
J'ai un soucis pour compter les cellules de couleur par MFC, le résultat est ok, quand je regarde dans le détail, mais le total me renvoi #VALEUR
Je vous joins mon fichier parce que la je ne comprend pas.
Merci de votre aide
J'ai un soucis pour compter les cellules de couleur par MFC, le résultat est ok, quand je regarde dans le détail, mais le total me renvoi #VALEUR
VB:
Function CompterCouleur(PlageCouleur As Range, Couleur As Range)
Dim CodeCouleur As Integer
Dim NbrCouleur As Integer
CodeCouleur = Couleur.Interior.Color
Set CCell = PlageCouleur
For Each CCell In PlageCouleur
If CCell.DisplayFormat.Interior.Color = CodeCouleur Then
NbrCouleur = NbrCouleur + 1
End If
Next CCell
CompterCouleur = NbrCouleur
End FunctionJe vous joins mon fichier parce que la je ne comprend pas.
Merci de votre aide