Compter le nombre de cellule avec un format X

[Hervé]

Bonjour
je souhaiterais compter (via 1 formule) le nombre de cellule dans une liste dont le motif a été ombré.
Merci de vos suggestions

 

[omicron]

Bonsoir Hervé

Si le terme "Cellule dont le motif a été ombré" signifie "Cellule avec une trame" il suffit d'insérer dans une macro la séquence d'instruction qui suit :

i = 0
For Each c In Selection.Cells
If c.Interior.Pattern <> xlSolid And c.Interior.Pattern <> xlNone _
Then i = i + 1
Next c
MsgBox "La selection compte " & i & " cellule(s) avec une trame"

NB : Selection pourra être par n'importe quelle plage de cellules (Range)

Cordialement ...

 

[Hervé]

Merci je vais essayer de ce pas