Re Al87 le forum,
comment veux tu que la ligne 37 s'efface???
tu as modifié la macro mais mais mais est-ce que tu peux me commenter le bout de macro suivant:
sachant que nbj est le nombre de jour du mois concerné, et que nb est le jour de la dernière date trouvée dans la feuille concernée.
If nb = nbj And Month(dat) < Month(Date) Then
If Application.CountIf(Sheets("Menu").Range("JOursFériés"), dat) > 0 Or Weekday(dat, vbMonday) > 5 Then
.Cells(fin, 1).Resize(, 7).Interior.ColorIndex = 38
Else
dat est bien sur la date trouvée dans la colonne A de la dernière ligne du mois concerné.
donc si ce n'est pas le dernier jour du mois, tu remets les couleurs normales??? mais dans ce cas il va de soi que les jours fériés contrairement à ce que tu as écris je ne sais plus quel poste, les jours fériés et samedi et dimanche ne seront pas colorié sauf si et seulement si le fichier est ouvert tous les jours !!!!!
Donc une fois de plus tu veux quoi?? il faut juste que tu saches ce que tu veux mais en fait tu dis blanc, mais tu veux du gris
Tu parles de la dernière ligne qui ne s'efface pas??? Mais elle ne le pourra, que quand il y aura une date d'écrite en colonne A ligne 37, pas avant.
Alors tu veux quoi?? C'est sur que tu ne sais hélas, pas t'exprimer clairement, cela ne simplifie pas les choses.
donc si tu me dis ce que tu veux clairement je modifie et cela va fonctionner c'est sur à 100%
a+
Papou