Compteur cellule fond jaune avec du texte

Excel
7

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 »