Foction simple pour comptabiliser les cases avec fond en couleur...

[dame et roi]

Bonjour à tous,

Je souhaite pouvoir comptabiliser le nombre de cellulles dont le fond est en couleur (peut importe la couleur) dans une plage x.
Ce peut être fait avec une ou plusieurs fonctions logiques, conditionnelles ou autres............. sans utiliser une usine à gaz de code VBA.

Pouvez vous svp m'écrire la solution complétement. J'utilise excel 2000.

Merci par avance, a bientôt

jerome

 

[Pierrot93]

Re : Foction simple pour comptabiliser les cases avec fond en couleur...

Bonjour Jérome

essaye la fonction personnalisé ci-dessous :

Option Explicit
Function NbCoul(Plage As Range)
Dim c As Range, i As Integer
Application.Volatile
For Each c In Plage
    If c.Interior.ColorIndex <> xlNone Then i = 1 + i
Next c
NbCoul = i
End Function

bonne journée
@+