XL 2010 nb cellules suivant couleur

[mcj1997]

Bonjour,

Je recherche comment calculer le nombre de cellules d'une certaine couleur.
Ex en PJ.

Merci d'avance,

 

[fanch55]

Salut, tu trouveras ton bonheur sur ce lien

Compter le nombre de cellules avec une couleur de cellule spécifique à l’aide de VBA - Office

Créez une fonction définie par l’utilisateur (UDF) pour compter le nombre de cellules avec la couleur de cellule spesific et empaquetez-la dans Add-In fichier, afin que l’UDF puisse être utilisée dans chaque classeur et tout autre ordinateur.

docs.microsoft.com

Tu comptes juste les colorindex <> xlnone

 

[mcj1997]

merci mais pas simple;

 

[fanch55]

Allez, je t'aide :
Inclure ce module ( adapté de l'exemple ) :

Function CountCcolor(range_data As Range, ColorIndex As Variant, Optional Equal As Boolean = True) As Long
    Dim datax As Range
    Dim xcolor As Long
  
    If TypeName(ColorIndex) = "Range" _
    Then xcolor = ColorIndex.Interior.ColorIndex _
    Else xcolor = ColorIndex

    For Each datax In range_data
        If Equal Then
            If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1
        Else
            If datax.Interior.ColorIndex <> xcolor Then CountCcolor = CountCcolor + 1
        End If
    Next datax
  
End Function

Puis dans ta feuille, remplir ta feuille avec les formules suivante :

Ce qui donne :

En sachant qu'une cellule sans couleur = -4142 ( XlNone)

 

[mcj1997]

Merci beaucoup c’est sympa !