Changer automatiquement couleur onglet par jour actif
Résolu/Ferméccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 - 16 mars 2023 à 11:46
- Changer automatiquement couleur onglet par jour actif
- Changer dns - Guide
- Rouvrir onglet fermé - Guide
- Excel cellule couleur si condition texte - Guide
- Changer clavier qwerty en azerty - Guide
- Changer la couleur de la barre des taches - Guide
3 réponses
15 mars 2023 à 11:14
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
Modifié le 15 mars 2023 à 11:57
Bonjour,
Étant un nul, je n'arrives pas à faire fonctionner le code ...
MCpk4LrTVq0_test-script-VBA.jpg
Modifié le 15 mars 2023 à 16:59
Avec mon fichier ?
As tu accepté l'ouverture des macros ?
15 mars 2023 à 20:17
Pardon, mon fichier : https://www.cjoint.com/c/MCptqnWnioB
Cdlmnt
16 mars 2023 à 05:34
Bonjour,
... excusez-moi, apparemment j'avais oublié d'accepter l'ouverture des macros... :-(
Maintenant ça fonctionne à merveille
Un tout grand merci
Bien à vous
16 mars 2023 à 11:46
De rien
Si c'est fini, merci de mettre le sujet à Résolu, en haut à droite dans ton premier post (les 3 petits points)
Bonne journée