Bonsoir
Banzai64 a écrit :
Lg = Application.Match(CSng(Date - 15), Range("D1:D91"), 1)
C'est la fonction Excel EQUIV(Valeur_Cherchée; Zone_de_recherche; Type)
CSng(Date - 15) : Retourne la date du jour - 15 jours
Range("D1:D91") : Zone de recherche
Si Type= 1 (dans ce cas) on récupère soit la valeur exacte soit la valeur inférieure
Banzai64 a écrit :
If Not IsError(Lg) Then
ActiveSheet.Tab.ColorIndex = 3
Else
ActiveSheet.Tab.ColorIndex = -4142
End If
Si lg ne retourne pas d'erreur on colorie l'onglet en rouge et dans le cas contraire on supprime la couleur
Pas plus compliqué que ça vu le peu de renseignements fournis
Pour la fonction EQUIV regardes l'aide d'Excel