XL 2016 nombre de cellules selon leur couleur

xUpsilon

XLDnaute Accro

• 5 Décembre 2022

• #2

Bonjour,

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

Bonne journée,

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 5 Décembre 2022

• #3

oui bien sûr !

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 5 Décembre 2022

• #4

Bonjour le forum,

Avec une fonction personnalisée dans un module

Cordialement.

 

Pièces jointes

• eastwick couleur.xlsm

  16.1 KB · Affichages: 34

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 5 Décembre 2022

• #5

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

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 5 Décembre 2022

• #6

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

Merci

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 5 Décembre 2022

• #7

Il faut revalider la formule.
Cdlt.

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 5 Décembre 2022

• #8

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

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 5 Décembre 2022

• #9

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

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 5 Décembre 2022

• #10

ok pigé, merci bien

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Décembre 2022

• #11

Bonjour eastwick, xUpsilon, mdo100,

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

VB:

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+

 

Pièces jointes

• excel couleur(1).xlsm

  19.9 KB · Affichages: 30

Dernière édition: 5 Décembre 2022

Vote positif 0 Vote négatif

V

vadelacaisse

XLDnaute Junior

• 16 Décembre 2022

• #12

eastwick à dit:

Bonjour à toutes et tous,

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

Merci beaucoup.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Décembre 2022

• #13

Bonsoir vadelacaisse, le fil,

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

A+

 

Vote positif 0 Vote négatif

V

vadelacaisse

XLDnaute Junior

• 16 Décembre 2022

• #14

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à !

 

Vote positif 0 Vote négatif

M

Marie-Annick

XLDnaute Nouveau

• 17 Décembre 2022

• #15

vadelacaisse à dit:

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à !

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif