Microsoft 365 Compter les couleur avec MFC

David · 18 Juin 2024

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

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 Function

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

Merci de votre aide

Dranreb · 18 Juin 2024

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

job75 · 18 Juin 2024

Bonsoir David,

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

A+

David · 18 Juin 2024

Dranreb à dit:
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 · 18 Juin 2024

job75 à dit:
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 · 18 Juin 2024

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 · 18 Juin 2024

David à dit:
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

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 Function

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

Merci de votre aide

Bonsoir,
en C5, à recopier vers la droite :

VB:

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

Cordialement,

David · 19 Juin 2024

Gégé-45550 à dit:
Bonsoir,
en C5, à recopier vers la droite :

VB:

=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 · 19 Juin 2024

Dranreb à dit:
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 · 19 Juin 2024

Bonjour David, le forum,

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

VB:

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 · 19 Juin 2024

David à dit:
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 · 19 Juin 2024

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 :

VB:

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 · 19 Juin 2024

David à dit:
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 · 19 Juin 2024

Bonjoy,

David à dit:
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 · 19 Juin 2024

TooFatBoy à dit:
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é.

Microsoft 365 Compter les couleur avec MFC

David

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

David

XLDnaute Occasionnel

David

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Gégé-45550

XLDnaute Accro

David

XLDnaute Occasionnel

David

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

Gégé-45550

XLDnaute Accro

mapomme

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

David

XLDnaute Occasionnel

Discussions similaires