Changer automatiquement couleur onglet par jour actif
Résolu
CANDIC5640
Messages postés
35
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Changer automatiquement couleur onglet par jour actif
- Changer dns - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Rouvrir onglet fermé - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
- Excel cellule couleur si condition texte - 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
