XL 2016 compter les cases de couleurs

Wayki

XLDnaute Impliqué

• 30 Septembre 2021

• #2

Bonjour,
C'est possible de 2 façons :
- Par VBA
- Avec le pack de fonction XLP qui intègre une formule qui fait ça.
Je vous laisse vous renseigner et revenir si rien ne vous inspire.
A +

 

Vote positif 0 Vote négatif

B

bob64100

XLDnaute Nouveau

• 30 Septembre 2021

• #3

Merci Wayki
Non vu mon niveau rien ne m'inspire
Par contre il me faudrait quelque chose de simple qui ne soit pas bloqué par la sécurité informatique de ma société ... donc je pense peut etre au XLP

 

Vote positif 0 Vote négatif

B

bob64100

XLDnaute Nouveau

• 30 Septembre 2021

• #4

bon pas gagné je crois

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 2 Octobre 2021

• #5

Bonjour,
Voici un fichier sans compléments.
Il est possible si vous préférez, d'afficher le résultat dans une fenêtre de message.
A +

 

Pièces jointes

• Compte couleurs.xlsm

  17.3 KB · Affichages: 12

Vote positif 0 Vote négatif

B

bob64100

XLDnaute Nouveau

• 2 Octobre 2021

• #6

Bonjour,

Merci de votre aide, mais je ne vois pas ou le décompte des couleurs se fait. Car en changeant une case en gris ou en enlevant une rien de se passe.... C'est un compte manuel

 

Vote positif -1 Vote négatif

Solution

Eric C

XLDnaute Barbatruc

• 2 Octobre 2021

• #7

Bonsoir le forum
Bonsoir bob64100, bonsoir Wayki

Il suffit, pour en temps réel, de placer les instructions, dans la feuille

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
couleur = [c8].Interior.Color
C = Range("C" & Rows.Count).End(xlUp).Row
Compteur = 0
For Each cellule In Range("C9", "C" & C)
    If cellule.Interior.Color = couleur Then
    Compteur = Compteur + 1
    End If
Next cellule
'Range("C" & C + 1) = Compteur & " cellules grises"
Range("C30") = Compteur & " " & " cellules grises"
End Sub

Bonne fin de soirée à toutes & à tous
@+ Eric c

 

Vote positif 1 Vote négatif

Wayki

XLDnaute Impliqué

• 2 Octobre 2021

• #8

bob64100 à dit:

Bonjour,

Merci de votre aide, mais je ne vois pas ou le décompte des couleurs se fait. Car en changeant une case en gris ou en enlevant une rien de se passe.... C'est un compte manuel

Cliquez pour agrandir...

Juste pour expliquer, j'ai fais une macro qui comme vous l'avez demandé, compte le nombre de cases de la couleur précisé.
Elle prend comme référence la couleur de la cellule qui est noté comme couleur de référence (première couleur de la feuille de calcul)
Il était question d'une couleur (grise, mais la macro marche si on change la couleur de référence par du rouge par exemple.)
Il suffit de lancer la macro pour qu'elle fasse le job.
Si il faut que ce soit automatique, suivre les manips d'Éric.
Je vois pas où est la solution dans votre post Oo

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 2 Octobre 2021

• #9

@ Wayki : le code reste ta propriété. Je n'ai fait que "revisiter" celui-ci.

Bon ouikand à toutes & à tous
@+ Eric c

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 3 Octobre 2021

• #10

Bonjour Éric c, bob, le forum,
Aucuns soucis je répondais à Bob64100.
A +

 

Vote positif 0 Vote négatif

B

bob64100

XLDnaute Nouveau

• 15 Octobre 2021

• #11

Bonsoir à tous,

Désolé pour ma réponse tardive
Merci pour votre aide à tous. Pour moi le problème est résolu de ce fait
A++

 

Vote positif 0 Vote négatif