Cellules change de couleur à la date

Bonjour,

J'ai un tableau avec des dates de fin de validité de formations dont je voudrais que le fond change de couleur automatiquement.

• Orange 2 mois avant cette date (Attention la date de fin approche)
• Rouge à partir de cette date (Attention la date est passé)
• Vert quand il reste plus de 2 mois avant cette date

J'ai bien essayé la mise en forme conditionnel mais je n'y arrive pas ! (je débute sur excel)

Si quelqu'un peut m'aider je vous remercie d'avance.

Cdt

Bonjour,

Pour la première règle (ici, les dates en colonne A à partir de A1) :

"-Vert quand il reste plus de 2 mois avant cette date"

=$A1<AUJOURDHUI()-60

pour la seconde :

"-Orange 2 mois avant cette date (Attention la date de fin approche)"

=ET($A1>=AUJOURDHUI()-60;$A1<AUJOURDHUI())

et pour la dernière :

"Rouge à partir de cette date (Attention la date est passé)"

=$A1>=AUJOURDHUI()

Salut tabassla,

Si tu débutes en VBA, je te conseille d'aller regarder des cours sur les conditions, ça te sera toujours utile !

Néanmoins, voici un code qui te réalisera ce que tu souhaites

Place le dans ThisWorkbook

Private Sub Workbook_Open()

maligne = Range("A" & Rows.Count).End(xlUp).Row    'On récupère le nom de la dernière ligne
For Each cell In Range("A1:A" & maligne) 'Pour chaque cellules dans cette colonne
    cell.Select

    If cell <= 0 Then
        cell.Interior.ColorIndex = 3
    ElseIf cell <=2  Then
    cell.Interior.ColorIndex = 46
    Else
    cell.Interior.ColorIndex = 4
    End If
Next

End Sub

A toi de redéfinir ta colonne !

EDIT : Ce code se mettra à jour à chaque ouverture du fichier Excel, donc si tu veux le tester, enregistre et ferme ton fichier puis ré-ouvre le

Bonjour Baboutz,

tabassla dit :

(je débute sur excel)

et tu veux le lancer dans VBA alors qu'il ne s'en sort pas avec une MFC

J'ai oublié de préciser qu'avant d'entrer les MFC, il te faut sélectionner la plage. Le dollar devant la lettre de colonne demande à ce qu'elle soit en référence absolue cet à dire que si tu sélectionnes de A1 à D30, les lignes seront colorées par rapport à la valeur de la cellule en colonne A

Salut Theze,

Ahah c'est vrai !

Comme il se trouvait sur le forum VBA je me suis dit...

Mais c'est vrai ta technique est tout aussi efficace !

j'ai joint le fichier.

Les colonnes jaunes sont celles ou je voudrais faire appliqué les règles.

La colonne H est celle ou j'ai essayé mais ça ne fonctionne pas exactement comme je voudrais

Theze

Je dois faire une erreur dans ce que tu décrit

Voici ton classeur et je me suis aperçu que je t'ai dis une conn.... désolé mais c'est corrigé dans le fichier, en fait, les formules sont :

Pour le vert :

=ET(D2<>"";D2>AUJOURDHUI()+60)

Pour l'orange :

=ET(D2<>"";D2<=AUJOURDHUI()+60;D2>AUJOURDHUI())

et pour le rouge :

=ET(D2<>"";OU(D2=AUJOURDHUI();AUJOURDHUI()>D2))

Theze a écrit :

Voici ton classeur et je me suis aperçu que je t'ai dis une conn.... désolé mais c'est corrigé dans le fichier, en fait, les formules sont :

Pour le vert :

=ET(D2<>"";D2>AUJOURDHUI()+60)

Pour l'orange :

=ET(D2<>"";D2<=AUJOURDHUI()+60;D2>AUJOURDHUI())

et pour le rouge :

=ET(D2<>"";OU(D2=AUJOURDHUI();AUJOURDHUI()>D2))

form.xlsx

These je te remercie c'est exactement ce que je voulais .

Content de t'avoir aidé