Comptage cellules couleurs

etorria · 26 Avril 2012

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 · 26 Avril 2012

Re : Comptage cellules couleurs

Bonjour Etorria, bonjour le forum,

Une proposition VBA :

Code:

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 · 26 Avril 2012

Re : Comptage cellules couleurs

Merci à toi !

ci-joint un exemple.

a+

Comptage cellules couleurs

etorria

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

etorria

XLDnaute Nouveau

Pièces jointes

Discussions similaires

Comptage cellules couleurs

etorria

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

etorria

XLDnaute Nouveau

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency