Compteur cellule fond jaune avec du texte

Bonjour,

Je souhaite mettre un compteur pour comptabiliser toutes les cellulles au fond jaune avec un texte particulier de toutes les feuilles de mon classeur.

Comment puis-je faire ?

MErci

Re,

Bonjour chtipika

Je vous met un TUTO du DocteurExcel ou il explique pour compter les cellules avec couleur

Cdlt

@kiss6

moi je voudrais compter couleur + texte

Re,

chtipika est ce que le texte a toujours la même couleur si oui avec la fonction “NB.SI” vous devriez vous en sortir

sinon avec un classeur EX: nous pourrions y voir plus clair

Joindre%20un%20fichier

Cdlt

@kiss6

Bonjour @chtipika, @kiss6,

@chtipika voir la proposition que j’ai fais en février de cette année et l’adapter à ton fichier.
Toutefois les couleurs de cellules ne doivent pas être d’origine MFC.

Cordialement.

1 J'aime

planning PAD 2018.xlsx (39,9 Ko)
Voici mon fichier.
C’est un planning de technicien. J’aimerais compter par technicien le nombre de jour BO (fond jaune).
j’aimerais avoir en debut de feuille le total BO par technicien (comme sur la feuille de Mai 2018).

Re @chtipika,
Je ne vois pas le rapport à la demande initial ?

  1. Nous ne savons pas ce que veux dire “BO” ?
  2. Il y a un nombre différent de lignes et / ou de colonnes selon les feuilles et ça pose un problème.

Donc je me limiterai à la feuille “Mai 18” en te laissant faire les autres feuilles.

Voici une fonction personnalisée pour compter les cellules de couleurs.

Function NBCOULEURS(plage As Range, cc As Range) As Integer

    Dim clr(), n%, i%, c As Range
    Application.Volatile
    ReDim clr(cc.Cells.Count - 1): i = -1
    For Each c In cc.Cells
        i = i + 1: clr(i) = c.Interior.Color
    Next c
    For Each c In plage
        For i = 0 To UBound(clr)
            If c.Interior.Color = clr(i) Then
                n = n + 1: Exit For
            End If
        Next i
    Next c
    NBCOULEURS = n
    
End Function

Elle fonctionne comme une fonction native d’Excel.
Son utilisation est la suivante:

=NBCOULEURS(Plage de cellules;Réf de la cellule de couleur)

Dans la feuille de “Mai 18” cela donne cette formule:

En “B3”

=NBCOULEURS(D3:N33;$Q$9)

Ton fichier en retour ICI==> planning PAD 2018.xlsm (46,3 Ko)

Cordialement.

1 J'aime

Re,

Bonjour @mdo100, @chtipika

Je suis très en retard sur le sujet mais je me suis un peut amuser puisque j’avais a peut près le même

problème

Alors voila ce que j’ais mijoter avec le classeur de @chtipika si c’la peut rendre service a certain autant en

faire profiter

le fichier en retour ===>planning PAD 2018.v1.xlsm (47,8 Ko)

Cdlt

@kiss6

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.