colorer l'onglet du mois en cours en jaune

anthoYS · 15 Janvier 2013

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 · 15 Janvier 2013

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.

VB:

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 · 15 Janvier 2013

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

Bonjour Anthoys,
Salut François 🙂

On peut aussi, faire:

VB:

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 · 15 Janvier 2013

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)

colorer l'onglet du mois en cours en jaune

anthoYS

XLDnaute Barbatruc

Pièces jointes

Gardien de phare

XLDnaute Accro

Modeste

XLDnaute Barbatruc

Gardien de phare

XLDnaute Accro

Discussions similaires

colorer l'onglet du mois en cours en jaune

anthoYS

XLDnaute Barbatruc

Pièces jointes

Gardien de phare

XLDnaute Accro

Modeste

XLDnaute Barbatruc

Gardien de phare

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency