couleur onglet selon date

Question

bonjour 
J ai un fichier Excel avec une cinquantaine d onglets 
Tous les onglets reprennent les mêmes données et informations avec une date de péremption
Comment pourrais je faire pour voir rapidement si la date est dépassée
en résumé comment  indiqué avec une couleur les onglets présentant des dates de péremptions dépassées
merci pour votre aide

Raymond PENTIER · Answer

Bonjour.

C'est peut-être réalisable avec une macro ; sais-tu utiliser VBA ? Moi, pas ... 

Avec des formules classiques, et avec les options et paramètres, ce n'est pas possible.
 
Je pourrais te suggérer d'ajouter une feuille d'accueil avec la liste des onglets, et en regard un code ou une couleur en fonction de la péremption.

cs_Le Pivert · Answer

Bonjour,

a mettre ce code dans ThisWorkbook

Option Explicit
Private Sub Workbook_Open()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
     If CDate(Ws.Range("A1").Value) < Date Then ' adapter cellule de reception de date
    ' MsgBox "Date périmée " & Ws.Name ' on peut activer
    Ws.Tab.Color = vbRed
    Else
    Ws.Tab.Color = vbWhite
    End If
Next
End Sub
 

opérationnel à l'ouverture du classeur

enregistrer sous: Classeur Excel prenant en charge les macros

via55 · Answer

Bonsoir à tous

Je n'avais pas vu la réponse de Le Pivert qui propose une solution meilleure que le mienne
J'ai donc retiré ma proposition

Cdlmnt
Via

Couleur onglet selon date

3 réponses

Discussions similaires

Newsletters