Changer la couleur d'un onglet automatiquement selon condit
laerous
Messages postés
53
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
bonjour
je souhaiterais savoir s'il est possible d'appliquer une macro pour que mes onglets changent automatiquement de couleur une fois une date défini est dépassée?
ex: j'ai 4 onglets de couleur violette nommés de la façon suivante:
01.04.24
08.04.24
15.04.24
22.04.24
29.04.24
Je souhaiterais par exemple qu'au 08.04.24 l'onglet nommé 01.04.24 passe gris
Est ce possible?
merci par avance
à très vite
A voir également:
- Changer la couleur d'un onglet automatiquement selon condit
- Changer dns - Guide
- Changer la couleur de la barre des taches - Guide
- Rouvrir un onglet fermé - Guide
- Changer carte graphique - Guide
- Excel cellule couleur si condition texte - Guide
3 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
Cela me semble très possible.
Du code VBA pourrait, par exemple, être exécuté chaque fois que le classeur s'ouvre, et faire passer en gris les onglets dont le nom correspond à une date dépassée.
merci
par contre je ne sais absolument pas faire de VBA :-(
un exemple de code:
Private Sub Workbook_Open() Dim ws1 As Worksheet, ws2 As Worksheet, nom As String, d As Integer, m As Integer, y As Integer, prems As Boolean prems = True For Each ws2 In ThisWorkbook.Sheets If Not prems Then nom = ws2.Name If Len(nom) = 8 Then d = Left(nom, 2) m = Mid(nom, 4, 2) y = Right(nom, 2) If IsNumeric(d) And IsNumeric(m) And IsNumeric(y) Then If DateSerial(y, m, d) < Now() Then ws1.Tab.Color = RGB(128, 128, 128) End If End If End If End If prems = False Set ws1 = ws2 Next ws2 End Sub