colorier ligne en fonction date

[matt31]

Bonjour,

j'ai un fichier sur lequel je voudrais colorier les lignes en fonction de la date du jour.

Pour chaque ligne, j'ai une date en K.
Je voudrais que la ligne de A à J soit mise en rouge pour toutes les lignes où la date en K est 2 mois inférieure à la date du jour, et en orange pour toutes les lignes où la date est entre 1 et 2 mois de moins que la date du jour. Et que ce fichier se mette à jour à chaque ouverture.

Merci de bien vouloir m'aider

 

[matt31]

Re : colorier ligne en fonction date

je précise que j'ai de 1 à 500 lignes voir plus donc je souhaite éviter les MFC

 

[Victor21]

Re : colorier ligne en fonction date

Bonjour, matt31

Sans mefc, va falloir passer par VBA.

je précise que j'ai de 1 à 500 lignes voir plus donc je souhaite éviter les MFC

Peux-tu expliciter le donc

Sinon une proposition en pj.
Bizarrement, je n'ai pas pû intégrer directement les conditions mois.décaler() dans la MEFC. (Appel à feuille extérieure???).
J'ai donc placé les conditions dans 2 colonnes supplémentaires (On pourrait simplifier) si cela te convenait🙂

 

[matt31]

Re : colorier ligne en fonction date

merci pour ton aide.
Par contre, cela ne fonctionne pas sur mon fichier. La MFC renvoie bien à la formule mais les cellules ne se colorent pas.

Pourquoi je souhaite éviter le MFC? Parce que j'ai un fichier qui varie en nombre de lignes et je peux en avoir jusqu'à 500 (et j'ai une 50aine de fichiers de cette sorte). D'autre part ce fichier se remplit grâce à une macro qui importe des données d'un autre fichier et qui supprime les lignes en doublon.
Avec des MFC ce sera trop long à mettre en place et pas sûr que cela fonctionne avec les ajouts et suppression de lignes.

 

[klin89]

Re : colorier ligne en fonction date

Bonsoir à tous,

Sub Mise_en_Forme()
Dim plage As Range, c As Range
Set plage = Sheets("Feuil1").Range("A3:J" & [A65535].End(xlUp).Row)
plage.Interior.ColorIndex = xlNone
For Each c In Sheets("Feuil1").Range("K3", [K65000].End(xlUp))
  If c.Value < Now - 30 Then
    If c.Value < Now - 60 Then
      c.Resize(, 10).Offset(0, -10).Interior.ColorIndex = 3 'rouge
    Else
      c.Resize(, 10).Offset(0, -10).Interior.ColorIndex = 45 'orange
    End If
  End If
Next c
End Sub

klin89

 

[matt31]

Re : colorier ligne en fonction date

je te remercie pour ton aide.
Sur un fichier simple, aucun problème cela fonctionne.

Par contre, j'ai voulu l'insérer dans mon fichier et en le mettant dans Workbook pour que toutes les cellules voulues se colorent à l'ouverture du fichier et là ça ne fonctionne plus.
J'y ai déjà une macro pour classer selon un ordre chronologique les lignes en fonction de la date en G.

Le fichier en question est en pièce jointe.

Merci de votre aide

 

[klin89]

Re : colorier ligne en fonction date

Bonjour à tous,

Dans le ThisWorkbook :

Private Sub Workbook_Open()
Dim DerLig As Integer, plage As Range, c As Range
Application.ScreenUpdating = False
DerLig = Range("C" & Rows.Count).End(xlUp).Row
Rows("2:" & DerLig).Select
Selection.Sort Key1:=Range("G3"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    Range("A" & DerLig + 1).Activate

Set plage = Sheets("Feuil1").Range("A3:J" & [A65535].End(xlUp).Row)
plage.Interior.ColorIndex = xlNone
For Each c In Sheets("Feuil1").Range("K3", [K65000].End(xlUp))
  If c.Value < Now - 30 Then
    If c.Value < Now - 60 Then
      c.Resize(, 10).Offset(0, -10).Interior.ColorIndex = 3 'rouge
   Else
      c.Resize(, 10).Offset(0, -10).Interior.ColorIndex = 45 'orange
   End If
  End If
Next c
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub

Et supprime ceci :

Private Sub Workbook_Open2()

Edit : mets Date à la place de Now

Klin89

 

[matt31]

Re : colorier ligne en fonction date

je te remercie ça marche impec