Comptage cellules couleurs

[etorria]

Bonjour !

Comment compter le nombre de cellules de couleurs de ma plage A2:A10 ?
Qu'importe la couleur dans les cellules. Résultat en A1.

Merci pour votre réponse.

Bien cordialement,

 

[Robert]

Re : Comptage cellules couleurs

Bonjour Etorria, bonjour le forum,

Une proposition VBA :

Sub Macro1()
Dim nb As Byte 'déclare la variable nb (NomBre)
Dim cel As Range 'déclare la variable cel (CELlule)

For Each cel In Range("A2:A10") 'boucle sur toutes les cellules de la plage A2:A10
    'si la cellule contient une couleur, incrémente nb
    If cel.Interior.ColorIndex <> xlNone Then nb = nb + 1
Next cel
Range("A1").Value = nb 'place nb dans la cellule A1
End Sub

 

[etorria]

Re : Comptage cellules couleurs

Merci à toi !

ci-joint un exemple.

a+