XL 2016 nombre de cellules selon leur couleur

[eastwick]

Bonjour à toutes et tous,

Je souhaiterais trouver une formule pour compter les cellules selon leur couleur de remplissage.
Voir l'exemple joint.

Merci beaucoup.

 

[xUpsilon]

Bonjour,

Impossible en formules Excel standard, ok pour une fonction personnalisée en VBA ?

Bonne journée,

 

[eastwick]

oui bien sûr !

 

[mdo100]

Bonjour le forum,

Avec une fonction personnalisée dans un module

Cordialement.

 

[eastwick]

Merci beaucoup, j'avais trouvé mais avec un module par couleur... Là c'est bien mieux

 

[eastwick]

Par contre, pas de changement dans les chiffres si une cellule n'est plus colorée...

Merci

 

[mdo100]

Il faut revalider la formule.
Cdlt.

 

[eastwick]

C'est à dire ? ça fonctionne si j'enregistre, ferme et réouvre, ça fait long non ?

 

[mdo100]

Non tu revalide juste une formule comme si tu venais de l'écrire.
Cdlt.

 

[eastwick]

ok pigé, merci bien

 

[job75]

Bonjour eastwick, xUpsilon, mdo100,

Une solution un peu plus compliquée qui liste les couleurs :

Sub CompteCouleurs()
Dim d As Object, r As Range, v&
Set d = CreateObject("Scripting.Dictionary")
With Feuil1 'CodeName
    Set r = .Range("A2:A" & .UsedRange.Row + .UsedRange.Rows.Count - 1)
    For Each r In r
        v = r.Interior.Color 'couleur de fond
        d(v) = d(v) + 1 'comptage
    Next r
    '---restitution---
    Application.ScreenUpdating = False
    Set r = .[F2] 'à adapter
    r.Resize(.Rows.Count - r.Row + 1, 2).Clear 'RAZ
    r.Resize(d.Count) = Application.Transpose(d.keys) 'Transpose est limitée à 65536 lignes
    r(1, 2).Resize(d.Count) = Application.Transpose(d.items)
    Set r = r.CurrentRegion
    r.Borders.Weight = xlThin 'bordures
    r.Columns(2).HorizontalAlignment = xlCenter 'cadrage
    For Each r In r.Columns(1).Cells
        r.Interior.Color = r
        r = ""
    Next r
End With
End Sub

La macro est affectée à un bouton.

A+

 

[vadelacaisse]

Bonjour à toutes et tous,

Je souhaiterais trouver une formule pour compter les cellules selon leur couleur de remplissage.
Voir l'exemple joint.

Merci beaucoup.

Bonjour
ça va peut-être faire grincer des dents sauf à considérer excel sans esprit de chapelle
voir : https://www.excel-pratique.com/fr/fonctions-complementaires
là on trouve ce que tu cherchais et bien d'autre fonctions dans le Pack de fonctions XLP.xlam

 

[job75]

Bonsoir vadelacaisse, le fil,

Très bien mais travaillez un peu en nous montrant comment ici on peut utiliser ces fonctions.

A+

 

[vadelacaisse]

il faut télécharger le pack - gratuit - mais en s’engageant à ne pas le diffuser (un seul utilisateur par téléchargement)
ce n'est donc pas possible de le partager ici : c'est pour ça que je n'ai mis que le lien
il y a deux versions du pack selon l'age d'excel
+ un guide d'installation, clair (j'ai réussi)
+ un guide bien fait pour expliquer les fonctions (81 à l'époque)

j'ai utilisé cette somme par couleur pour une collègue : il suffit d'écrire la formule dans n'importe quelle cellule de couleur en combinant une autre fonction du pack qui détermine le n° de la couleur (choisie librement) puis de définir le champ de calcul
n'ayant plus ce fichier, je ne peux pas montrer la syntaxe imbriquée (simple)
voilà !

 

[Marie-Annick]

il faut télécharger le pack - gratuit - mais en s’engageant à ne pas le diffuser (un seul utilisateur par téléchargement)
ce n'est donc pas possible de le partager ici : c'est pour ça que je n'ai mis que le lien
il y a deux versions du pack selon l'age d'excel
+ un guide d'installation, clair (j'ai réussi)
+ un guide bien fait pour expliquer les fonctions (81 à l'époque)

j'ai utilisé cette somme par couleur pour une collègue : il suffit d'écrire la formule dans n'importe quelle cellule de couleur en combinant une autre fonction du pack qui détermine le n° de la couleur (choisie librement) puis de définir le champ de calcul
n'ayant plus ce fichier, je ne peux pas montrer la syntaxe imbriquée (simple)
voilà !

Bonjour,
J'utilise aussi ce complément et ça fonctionne très bien