Changer automatiquement couleur onglet par jour actif
RésoluBonjour,
Je cherche une solution au "problème" suivant :
Ma feuille de calcul est composée de plusieurs onglets, je souhaite que la couleur de l'onglet change automatiquement en fonction du jour "actif" (= aujourd'hui).
https://www.cjoint.com/c/MCpfKwzVuS0
Quelqu'un peut-il m'aider ?
Merci
Version Excel : Microsoft Excel pour Microsoft 365 MSO (version 2203 Build 16.01.15028.20152) 64 bits
3 réponses
-
Bonjour
Pour mettre en rouge l'onglet correspondant à la date du jour et en vert les autres dates à l'ouverture du fichier
Option Explicit Const rouge = 3 Const vert = 50 Private Sub Workbook_Open() Dim m As Long Dim nomfj As String nomfj = Format(Day(Date), "00") & "_" & Format(Month(Date), "00") MsgBox "Valider pour continuer" For m = 1 To Sheets.Count If IsNumeric(Left(Sheets(m).Name, 1)) Then If Sheets(m).Name = nomfj Then Sheets(m).Tab.ColorIndex = rouge Else Sheets(m).Tab.ColorIndex = vert End If End If Next m End SubAlt-F11 pour accéder à l'éditeur vba, code à mettre dans le module du Workbook
Si ça convient, supprimer la ligne msgbox ....
Cdlmnt
-
Bonjour,
Étant un nul, je n'arrives pas à faire fonctionner le code ...
MCpk4LrTVq0_test-script-VBA.jpg
-
Bonjour,
... excusez-moi, apparemment j'avais oublié d'accepter l'ouverture des macros... :-(
Maintenant ça fonctionne à merveille
Un tout grand merci
Bien à vous
