Microsoft 365 Compter les couleur avec MFC

[David]

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

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 Function

Je vous joins mon fichier parce que la je ne comprend pas.

Merci de votre aide

 

[mapomme]

Re,

Essayez cette formule en C4 à recopier vers la droite : =SOMMEPROD(N(ABS(C2:C4-$H2)>0,49))

 

[David]

Merci à mapomme et job75, cela me convient parfaitement

 

[TooFatBoy]

Pour l'ami Gégé il faudrait le faire ligne par ligne et j'ai beaucoup de ligne

J'avoue que je ne comprends pas ce que tu veux compter, car si c'est un résultat par ligne que tu veux, pourquoi avoir mis une formule dans chaque colonne dans ton fichier initial ?


[edit] Ah ben au moins mapomme et job75 ont compris ce que tu voulais, donc tout est bien qui fini bien. 👍 [/edit]

 

[Gégé-45550]

[edit] Ah ben au moins mapomme a compris ce que tu voulais, donc tout est bien qui fini bien. 👍 [/edit]

C'est exactement la même chose, simplement écrite de façon plus élégante !

 

[TooFatBoy]

C'est exactement la même chose

Ah oui, ça donne exactement le même résultat, et c'est donc bien un calcul par colonne et non par ligne qu'il fallait trouver.
Du coup je me demande pourquoi ta solution n'a pas été validée de suite. 🤔