Couleur des caracteres d'une ligne en fonction de la date

En réponse à ton questionnement :

1) La modification de couleur de police n'est pas un évènement qui est détecté par l'application.
Tu peux utiliser un autre évènement, par exemple Worksheet.SelectionChange qui permet de détecter un changement de sélection dans la feuille de calcul.
Par contre, le comptage ne sera effectué qu'après modification de la couleur puis changement de sélection. Le rafraichissement est automatique mais n'est pas directement induit par la modification de couleur.

2) Lorsque tu supprimes directement une date en rouge, le compteur ne décrémente pas parce que le format de la cellule n'est pas modifié (la couleur de police reste rouge).
Tu dois donc indiquer dans le programme que le comptage ne doit pas être effectué si la cellule est vide.

Exemple de code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Numberofdates As Integer
Dim i As Integer
    For i = 4 To 3000
        If Cells(i, 7).Font.ColorIndex = 3 And Cells(i, 7) <> "" Then
            Numberofdates = Numberofdates + 1
        End If
    Next i
    Range("A1").Value = Numberofdates
End Sub

A+

Bonjour Gyrus,

Merci pour cette réponse rapide et efficace.

Effectivement, je n'avais pas pensé à la non-detection du changement de police.
La fonction SOUS.TOTAL est une bonne alternative, l'inconvénient est qu'elle oblige de cacher les autres dates qui restent en noires.

Pour le programme, je ne comprends pas, je n'ai aucun résultat lorsque je l'insére en tant que module dans ma feuille excel ?
Le compte devrait pourtant apparaitre dans la cellule A1 non ?

Ah, c'est donc le noeud du problème. Je vais essayer d'être plus clair dans ma demande, pour visualiser le résultat que j'aimerais obtenir, voici un exemple:

https://www.cjoint.com/c/EHBif4L5pS3

Trois étapes:
1) Dans la liste de tous les produits (Feuille 1), les produits étant en fonctionnement depuis 4 mois ou plus doivent voir leur police de ligne devenir rouge et non noire.

2) Une cellule de la feuille 1 doit indiquer le nombre de produits qui sont en fonctionnement depuis 4 mois ou plus (On peut donc utiliser le fait que les lignes correspondantes soient rouges, si c'est plus simple qu'avec la date)

3) Les Feuilles 2-3-...-13 correspondent a une evolution mensuelle. Dans chacune de ces feuilles, deux tableaux. Exemple avec Janvier 2015:
- Un tableau correspondant a tout les produits en fonctionnement depuis 4 mois ou plus avant Janvier 2015
- Un tableau correspondant a tous les produits en fonctionnement avant Janvier 2015

Le but final est que je remplisse seulement la premiere feuille avec les nouveaux produits. Tout le reste se ferait automatiquement (Le passage au rouge après 4 mois, le calcul du nombre de produits en rouge et le remplissage des feuilles 2 a 13 qui "piochent" les lignes necessaires dans la feuille 1)

Dans l'exemple excel, j'ai ajouté la mise en forme conditionelle pour l'étape 1 et le programme que tu as concocté pour l'étape 2. Cependant comme tu l'as fais remarqué, il n'est apparemment pas possible de lier les deux.

J'espère être comprehensible et que ceci est faisable, merci de se pencher sur ma demande en tout cas !

Bonjour Gyrus,

Cela me semble absolument parfait !

Un grand merci pour cette précieuse aide.