Couleur onglet selon date
CGmutu
Messages postés
1
Statut
Membre
-
Guinard -
Guinard -
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
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
A voir également:
- Couleur onglet selon date
- Rouvrir onglet fermé chrome - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Excel cellule couleur si condition texte - Guide
- Somme si couleur - Guide
- Trouver une date de naissance gratuit - Forum Webmastering
3 réponses
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.
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.
Bonjour,
a mettre ce code dans ThisWorkbook
opérationnel à l'ouverture du classeur
enregistrer sous: Classeur Excel prenant en charge les macros
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
