Changer automatiquement couleur onglet par jour actif
Résolu
CANDIC5640
Messages postés
36
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
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
A voir également:
- Changer automatiquement couleur onglet par jour actif
- Changer dns - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Rouvrir onglet fermé chrome - Guide
- Changer la couleur de la barre des taches - Guide
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 Sub
Alt-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
