Onglet couleur mensuel

Bonjour le Forum,

Je reviens parmi vous, les AS d'excel.

Est-il possible de mettre en couleur les onglets en couleurs suivant les semaines automatiquement.

Je vous mets en PJ les docs.

Par avance, merci.

Bien cordialement.

ericp

3octobre.xlsx (159.64 Ko)
3novembre.xlsx (160.31 Ko)

Bonjour,

Je pense que cela est possible, seulement, quand tu parle de semaine, est ce la semaine en cours ou le N° de la semaine de l'année ?

Merci de t'intéresser à mon sujet.

C'est la semaine en cours.

Merci.

Désolé du retard.

Voilà une macro pour mettre en couleur la feuille du jour.

Pour la semaine, sa devrait être pareil pour les semaine si les feuilles ont les numéros de semaine, avec en A1 la formule : =NO.SEMAINE(AUJOURDHUI())

10octobre.zip (21.64 Ko)

Private Sub workbook_open() On Error Resume Next Sheets("Date").Select With ActiveWorkbook.Sheets(Sheets("Date").Range("A1").Value).Tab .Color = 255 .TintAndShade = 0 End With End Sub

Bonjour à tous,

attention que =NO.SEMAINE(AUJOURDHUI()) retourne la semaine 'américaine'

Pour l'europe :

=NO.SEMAINE(AUJOURDHUI();21)

ou pour ceux qui ont une version résente :

=NO.SEMAINE.ISO(AUJOURDHUI())

eric

Merci à vous 2 mais c'est les semaines entières que je voudrais coloriser.

Bien cordialement.

ericp

Oups,

Je n'avais pas vu mais pourquoi quand je mets la formule pour la semaine, ça me mets le chiffre 42

Quelle couleur devront avoir tes feuilles une fois qu'on aura traversé la semaine ?

Oups,

Je n'avais pas vu mais pourquoi quand je mets la formule pour la semaine, ça me mets le chiffre 42

Par ce que ce jour correspond bien à la 42 ème semaine de l'année 2019.

Merci à vous 2 mais c'est les semaines entières que je voudrais coloriser.

Bien cordialement.

ericp

Dans ce cas, il faut des formules au niveau de ta feuille date devant toute les dates...

Voir pièce jointe

Je n'ai pas la PJ

screenshot 20191014 134121

Aussi, pour chaque feuille qui respecte l'égalité à la cellule D1, une couleur est appliqué et dans le cas contraire, une autre couleur...

J'ai beau faire des tests, les semaines ne se colories pas.

Que l'on se comprenne.

Tes feuilles son les numéros de Jour mensuel pas de semaine.

Re,

un essai.

Je me base sur la date en C2 de chaque feuille.

D'ailleurs pourquoi cette liste déroulante puisqu'un onglet est dédié à une date ?

eric

6novembre.xlsm (180.04 Ko)

Bonsoir,

C'est tout à fait ce que je cherchais à faire mais manque de connaissance.

La liste déroulante, ben je cherche et je cherche, je suis pas aussi logique que vous Tous, vous êtes vraiment très fort.

Encore 1000 merci pour cette solution qui va me permettre de moi galérer.

Bien cordialement.

ericp.

Bonjour les AS d'excel,

Je reviens car j'aimerais savoir vous pouviez faire sur la date du jour, ( 11 novembre) que cette date soit en rouge et que le lendemain (12 novembre ) cela redevienne rouge mais que le 11 redevienne à la couleur d'origine de la semaine affiché.

Par avance, merci pour votre aide.

Bien cordialement.

ericp

3novembre.xlsm (173.55 Ko)

Bonjour les AS d'excel,

Je reviens car j'aimerais savoir vous pouviez faire sur la date du jour, ( 11 novembre) que cette date soit en rouge et que le lendemain (12 novembre ) cela redevienne rouge mais que le 11 redevienne à la couleur d'origine de la semaine affiché.

Par avance, merci pour votre aide.

Bien cordialement.

ericp

Bonsoir,

Je ne sais pas trop pourquoi ma formule est longue, mais elle s'inspire de ce qui a été présenté plus haut et fonctionne très bien.

Sub colorday()

Dim sh As Worksheet, sem As Long, d As Long
Dim dat As Date, j1 As Long
d = Range("day").Value

For Each sh In Worksheets
    If IsDate(sh.[C2].Value) Then
        dat = sh.[C2].Value
    If sh.Name = "Date" Then
    Else
    If sh.Name <> d Then
    j1 = Weekday(DateSerial(Year(dat), Month(dat), 1), vbMonday)
    If Weekday(sh.[C2], vbMonday) > 5 Then
       sem = 6
    Else
       sem = (Day(dat) + j1 - 2) \ 7 + 1
    End If
    sh.Tab.Color = Range("couleurs")(sem).Interior.Color
    Else

    sh.Tab.Color = Range("day").Interior.Color
    End If
    End If
    End If

Next sh

End Sub

Cordialement.

1novembre.xlsm (175.44 Ko)
Rechercher des sujets similaires à "onglet couleur mensuel"