Onglet couleur

Bonjour,

Avec IsNumeric() qui fonctionne très bien chez moi sur ton dernier fichier :

Private Sub Workbook_Open()

    Dim Fe As Worksheet
    Dim NumSem As Integer

    For Each Fe In Worksheets

        If IsNumeric(Fe.Name) Then  '<--- teste si le nom est numérique !

            Select Case Weekday(DateSerial(Year(Date), Month(Date), Fe.Name), vbMonday)
                Case 6, 7
                    Fe.Tab.ColorIndex = Worksheets("Date").Cells(6, 7).Interior.ColorIndex

                Case Else
                    NumSem = Format(DateSerial(Year(Date), Month(Date), Fe.Name), "WW") - Format(DateSerial(Year(Date), Month(Date), 1), "WW")
                    If NumSem = 0 Then NumSem = 1
                    Fe.Tab.ColorIndex = Worksheets("Date").Cells(NumSem, 7).Interior.ColorIndex

            End Select

            If Fe.Name = Day(Date) Then Fe.Tab.ColorIndex = 3

        End If

    Next Fe

End Sub

Re, je t'assure, tout a l'heure ça me beuguait ou alors je n'était pas réveillé.

Un autre soucis,

les semaines ne se suivent pas dans la numérotations des jours, et dans la macro, les jours sont fixes, est ce qu'il y a une possibilité de faire en sorte que quel soit les dates, les jours des semaines se colorient .

Par avance, merci pour ta réponse.

Bien cordialement.

ericp

Bonjour THEZE,

J'avais mal fait la manip avec ta ligne, c'est nickel de chez nickel.

Un grand à vous tous.

Bon WE.

Bien cordialement.

ericp.

Rechercher des sujets similaires à "onglet couleur"