XL 2016 nombre de cellules selon leur couleur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière édition:
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à !
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
122
Réponses
4
Affichages
131
  • Résolu(e)
Microsoft 365 DATEDIF
Réponses
11
Affichages
184
Retour