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

 

[Dranreb]

Bonsoir.
Une propriété Color ne tient pas sur 16 bits, il en faut 32. Donc Dim CodeCouleur As Long.

 

[job75]

Bonsoir David,

Il faut savoir que DisplayFormat va bien dans une procédure Sub mais pas dans une fonction.

A+

 

[David]

Bonsoir.
Une propriété Color ne tient pas sur 16 bits, il en faut 32. Donc Dim CodeCouleur As Long.

Merci j'ai modifié mais ça n'a pas marché.

 

[David]

Bonsoir David,

Il faut savoir que DisplayFormat va bien dans une procédure Sub mais pas dans une fonction.

A+

Merci Job75
Aucune possibilité dans une fonction?
je trouve ouf, que ça renvoi le bon résultat, mais que ça ne puisse pas l'afficher.
Merci

 

[Dranreb]

Je suppose que la couleur vient donc de mises en forme conditionnelles. Dans ce cas ce ne sont pas les couleurs qu'il faut compter, mais les cas testés par elles.

 

[Gégé-45550]

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
Regarde la pièce jointe 1199093

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

Bonsoir,
en C5, à recopier vers la droite :

=SOMMEPROD(--((C2:C4)<$H2-0,49))+SOMMEPROD(--((C2:C4)>$H2+0,49))

Cordialement,

 

[David]

Bonsoir,
en C5, à recopier vers la droite :

=SOMMEPROD(--((C2:C4)<$H2-0,49))+SOMMEPROD(--((C2:C4)>$H2+0,49))

Cordialement,

Merci, j'avais commencé avec a peu près la même chose, mais je dois vérifier l'écart ligne par ligne et pas seulement sur $H2, c'est à dire sur a ligne 3 c'est avec $H3 et ainsi de suite.

 

[David]

Je suppose que la couleur vient donc de mises en forme conditionnelles. Dans ce cas ce ne sont pas les couleurs qu'il faut compter, mais les cas testés par elles.

Merci, mais je ne vois pas comment faire, un début de piste à me donner?
Bonne journée

 

[job75]

Bonjour David, le forum,

Il faut savoir que DisplayFormat va bien dans une procédure Sub mais pas dans une fonction.

Sub CompterCouleur()
Dim Couleur As Range, Compte As Range, CodeCouleur&, c As Range, NbrCouleur&, cc As Range
Set Couleur = [C20]
Set Compte = [C5:J5]
CodeCouleur = Couleur.Interior.Color
For Each c In Compte
    NbrCouleur& = 0
    For Each cc In Range(Cells(1, c.Column), c(0))
        If cc.DisplayFormat.Interior.Color = CodeCouleur Then NbrCouleur = NbrCouleur + 1
    Next cc
    c = NbrCouleur
Next c
End Sub

A+

 

[Gégé-45550]

Merci, j'avais commencé avec a peu près la même chose, mais je dois vérifier l'écart ligne par ligne et pas seulement sur $H2, c'est à dire sur a ligne 3 c'est avec $H3 et ainsi de suite.

Bonjour,
Il suffit de recopier la formule ligne par ligne.

 

[mapomme]

Bonjour @David 🙂, à tous 😉,

Il y a une astuce ( pas de ma pomme 🙁 ) qui permet de faire une fonction personnalisée pour compter les couleurs avec DisplayFormat.

En C5, placez la formule suivante : =CompterCouleur(C2:C4;$C$11) à copier vers la droite.
Avec le code suivant dans un module :

Option Explicit

Function CompterCouleur(plage As Range, cellCouleur As Range) As Long
Dim refCoul, x, nbr&
   Application.Volatile
   refCoul = cellCouleur.Interior.Color
   For Each x In plage: nbr = nbr - (DFColor(x) = refCoul): Next
   CompterCouleur = nbr
End Function

Function DFColor(ByVal R As Range) As Double
   Application.Volatile
   DFColor = Evaluate("Helper(" & R.Address() & ")")
End Function

Private Function Helper(ByVal R As Range) As Double
   Helper = R.DisplayFormat.Interior.Color
End Function

nota : comme un changement de format ne provoque aucun évènement intercepté par Excel, n'oubliez pas de forcer le calcul après tout changement de couleur (dans la MFC ou dans la cellule de référence de la couleur) - un des moyens pour forcer le calcul : se placer dans une cellule de la plage et (re)valider. C'est valable pour la fonction et aussi pour les Sub.

 

[Dranreb]

je ne vois pas comment faire, un début de piste à me donner?

Examinez vos mises en formes conditionnelles, appliquez dans la macro les mêmes règles ou expressions. Pour Excel une couleur n'est pas une information, c'est juste un confort visuel pour l'utilisateur, un effet en sortie. Alors pour obtenir un autre effet partez des mêmes sources.

 

[TooFatBoy]

Bonjoy,

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

Ben comme ça on est au moins deux... 😅

Ça doit compter quoi ??? Sur quelle plage ?
Pourquoi le SommeProd de l'ami Gégé ne convient-il pas ?

 

[David]

Bonjoy,


Ben comme ça on est au moins deux... 😅

Ça doit compter quoi ??? Sur quelle plage ?
Pourquoi le SommeProd de l'ami Gégé ne convient-il pas ?

Merci, mais je ne comprend juste pas pourquoi ç n'affiche pas le résultat qui est bon, sinon je comprend encore ce que je fais.
Pour l'ami Gégé il faudrait le faire ligne par ligne et j'ai beaucoup de ligne, j'ai commencé par faire ce qu'il m'a proposé.