Compter nombre de date avec une police rouge

Bonjours,

J'ai un tableau avec des date en Rouge (couleur police) et je voudrais faire le cumul uniquement de ces dates en couleur rouge. Quelqu'un peut il m'aider ?

Bonjour,

Un peu plus de précision serait requis. De même qu'un modèle illustratif...

Cordialement.

Dans le tableau ci joint je voudrais compter le nombre de dates qui sont dans les différentes cellules avec une police rouge (pas le fond de cellule).

Je ne trouve pas d'exemple sur ce sujet avec les dates

Les quelques sujets que j'ai consultés ne fonctionnent pas avec les dates

Si tu as la solution par avance Merci.

Bonsoir,

Essayer ainsi :

Function RD(pld As Range) As Integer
    Dim c As Range, n%
    For Each c In pld
        If IsDate(c) Then
            If c.Font.Color = vbRed Then n = n + 1
        End If
    Next c
    RD = n
End Function

Fonction à placer dans un module standard...

Cordialement.

Merci MFerrand !!! votre code fonctionne à merveille J'ai juste besoin quand je change la couleur d'une autre date en rouge Je suis obligé de validé par la touche "F9" je suppose qu'on ne peux le valider autrement.

Mais l'essentiel est que ça fonctionne, même si je n'ai pas compris le fonctionnement en détail de la fonction.

Merci encore pour votre aide MFerrand

Ajoute tout de même la ligne surlignée que j'ai omise...

Function RD(pld As Range) As Integer
    Dim c As Range, n%
    Application.Volatile
    For Each c In pld
        If IsDate(c) Then
            If c.Font.Color = vbRed Then n = n + 1
        End If
    Next c
    RD = n
End Function

Elle sera recalculée lors du recalcul de la feuille, mais en effet un changement de couleur ne provoque pas un recalcul, mais si tu as un changement de valeur ou une validation dans une cellule cela pourra le déclencher...

Cordialement.