Modifier couleur d'une cellule en fonction de la date

Bonjour !

Je me permets de poster car je bloque un peu sur mon petit projet.

J'ai deux environnements de développement différents.

Sur ces deux environnements, j'ai des applications qui tournent et qui peuvent avoir un certain état (Terminée, à venir, en cours ou en erreur).

Attention, l'état peut être différent sur la même application selon l'environnement.

Exemple :

En fonction du mois en cours, je souhaite coloriser la cellule correspondant à l'application et son état.

Par exemple, nous sommes en février, l'application 1 devrait être en verte sur ENV FEVRIER et Jaune sur ENV2 FEVRIER.

J'ai tenté ce code mais ça ne donne rien :

Sub mensuel()

    'Dernière ligne de la base de données
    derniereLigne = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row

    'Déclaration du tableau dynamique
    Dim tableau()
    ReDim tableau(derniereLigne - 2, 1)
    n = Month(Now)

    'Range("K1") = n

    'Enregistrement des données dans le tableau + Colorisation de la cellule associée
    For ligne = 2 To derniereLigne
        If n = 1 Then
                If Sheets("Feuil1").Range("N" & ligne) = "TERMINEE" Then
                    Range("K" & ligne).Interior.Color = RGB(0, 128, 0)

                ElseIf Sheets("Feuil1").Range("N" & ligne) = "ERREUR" Then
                    Range("K" & ligne).Interior.Color = RGB(255, 0, 0)
                ElseIf Sheets("Feuil1").Range("N" & ligne) = "EN COURS" Then
                    Range("K" & ligne).Interior.Color = RGB(0, 255, 255)
                ElseIf Sheets("Feuil1").Range("N" & ligne) = "A VENIR " Then
                    Range("K" & ligne).Interior.Color = RGB(255, 255, 0)
                End If
        Else
            n = n + 1
        End If
    Next
End Sub

Je sais que mon

Range("K" & ligne).Interior.Color = RGB(0, 128, 0) 

N'est pas bon mais je ne vois pas comment faire pour faire correspondre la date de la variable "n" à la colonne associée à son mois.

Une idée ?

Merci !

Bonjour Rudeus

Tu es nouveau venu : il faut savoir qu'un petit extrait de fichier nous est plus utile pour t'aider qu'une photo

Dans cette photo , nous n'avons même pas les colonnes !

Essaie de joindre un mini fichier

Merci

Bonjour Patty !

En effet c'est vrai que je n'ai pas pensé à mettre le fichier...

Le voici !

Merci beaucoup

Bonjour Rudeus,

Je t'avais zappé, occupée ailleurs

Vois ce fichier et si j'ai compris le principe, j'ai fait aussi pour la colonne L.

Quelques lignes d'explications en commentaire

A toi de voir

Bonne soirée

Bonjour.

Pas de soucis on a tous une vie aha.

Merci beaucoup ça fonctionne parfaitement !

Le plus dur reste à venir, les applications sur la gauche proviennent d'une BDD. Etant donné que je ne gère pas toutes les applications de la BDD, il va falloir que je fasse un tri au préalable pour ne garder que celle que je gère pour ensuite leur affecter une couleur en fonction de leur statut...

Pas facile mais je vais tenter de me débrouiller !

Merci beaucoup pour ton aide.