colorer l'onglet du mois en cours en jaune

[anthoYS]

bonjour,


je ne sais pas si un sujet du même genre existe, mais je voudrais savoir s'il est possible de faire en sorte que le mois en cours se colore, du moins l'onglet correspondant ?


Merci
à+

 

[Gardien de phare]

Re : colorer l'onglet du mois en cours en jaune

Bonjour,

Sous réserve de renommer les onglets par les numéros de mois (1,2,3, etc.) le code suivant, placé dans Thisworkbook fera ce qui est attendu.

Private Sub Workbook_Open()
Dim Dt As Date, i As Integer
Dt = Month(Date)
For i = 1 To Sheets.Count
    Sheets(i).Tab.Color = xlNone
Next
Sheets(Dt).Tab.Color = 255
End Sub

 

[Modeste]

Re : colorer l'onglet du mois en cours en jaune

Bonjour Anthoys,
Salut François 🙂

On peut aussi, faire:

Private Sub Workbook_Open()
For Each onglet In Worksheets
    If onglet.Name = Format(Date, "mmm") Then
        onglet.Tab.Color = RGB(255, 0, 0)
    Else
        onglet.Tab.ColorIndex = xlNone
    End If
Next onglet
End Sub

... à condition, cette fois de respecter le format "mmm" pour nommer les feuilles, soit précisément:
janv, févr, mars, avr, mai, juin, juil, août, sept, oct, nov ou déc (accents inclus!)

 

[Gardien de phare]

Re : colorer l'onglet du mois en cours en jaune

Re le forum, bonjour Modeste,

Je me suis dit qu'il y avait moins de risque avec les chiffres que les mois en littéraire !

Au fait, il voulait jaune et pas rouge ! ce qui suggère un RGB(255,255,0)