Nombre de cellule de couleur rouge dans un TCD

Bonjour,

J'ai mis en forme un TCD avec un code couleur (nuancier : cellule = 0 alors rouge)

J'aimerais connaitre le nombre de cellule rouge dans le TCD.

J'ai bien pu rajouter les modules pour connaitre la couleur d'une cellule mais dans le TCD ca ne semble pas marcher

Avez vous une solution ?

Merci

Bonjour,

un exemple en fichier ou l'inverse ?

P.

Bonjour,

Un exemple à étudier sans MFC.

Cdlt.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim Cell As Range, n As Long
    With Target
        .DataBodyRange.Interior.Color = xlNone
        For Each Cell In .DataBodyRange
            If Cell.Value = 0 Then
            Cell.Interior.Color = RGB(255, 0, 0)
            n = n + 1
            End If
        Next Cell
    End With
    MsgBox "Il y a " & n & " valeur(s) égale(s) à zéeo."
End Sub