Compter les cellules colorées dans un Range

Bonjour à tous,

Comment peut-on compter le nombre de cellules colorées dans le Range suivant : ("B2:M36").

Les cellules de ce Range sont colorées par l’utilisateur et non pas par la mise en forme conditionnelle.

Ces mêmes cellules ont parfois un contenu et parfois elle sont vides.

Les couleurs ne sont pas choisies selon une règle précise, l’utilisateur choisit les couleurs qu’il désire.

Comment peut-on compter en vba (SVP), le nombre de cellules colorées et placer ce nombre dans la cellule ("O25").

Merci d’avance de vos contributions.

Salut Harzer,

tu peux essayer avec ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim rCel As Range, iNum%
'
Cancel = True
For Each rCel In Range("B2:M36")
    If rCel.Interior.ColorIndex <> xlColorIndexNone Then iNum = iNum + 1
Next
[O25] = iNum
'
End Sub

Si le résultat n'est pas bon..

A+

Bonjour curulis57,

Merci pour votre retour.

Le code proposé me satisfait et me donne le résultat souhaité. Bravo.

Salutations.