Onglet en couleur

[sten83]

Bonjour, j'ai un classeur avec 10 onglets intitulés jour1 jusqu’à jour10, dans chaque feuille en A1 se trouve la date a savoir que la date de la première feuille et reprise sur la suivante + 1 jour.
Ma question, est-il possible qu'à l'ouverture du classeur l'onglet correspondant a la date du jour c'est a dire la même que dans la cellule A1 s'affiche en couleur.
Merci de votre aide

 

[WUTED]

Re : Onglet en couleur

Bonjour sten86,

Ajoute ça dans ThisWorkbook :

Private Sub Workbook_Open()
    For Each sh In Sheets
        If sh.Range("A1") = Date Then
            Sheets(sh.Name).Tab.ThemeColor = xlThemeColorAccent4
        End If
    Next
End Sub

Bonne journée.

 

[tototiti2008]

Re : Onglet en couleur

Bonjour sten, bonjour WUTED,

@WUTED :

Sheets(sh.Name)

ne pourrait-il pas s'écrire

Sh

?

 

[WUTED]

Re : Onglet en couleur

Bonjour tototiti2008,

En effet, une mauvaise habitude 😉

 

[Gorfael]

Re : Onglet en couleur

Salut sten83 et le forum
Dans le module ThisWorkBook :

Private Sub Workbook_Open()
Dim F As Worksheet
For Each F In ThisWorkbook.Sheets
    If F.[A1] = Date Then
        F.Tab.ColorIndex = 3
    Else
        F.Tab.ColorIndex = xlNone
    End If
Next F
End Sub

A+

Edit : réponse un peu tardive... mais plus mieux bien, puisque c'est mon œuvre 😉

 

[sten83]

Re : Onglet en couleur

Merci pour vos réponse mais cela ne fonctionne pas je me suis trompe de version d'office c'est 2007 et non 2010 milles excuses.

 

[tototiti2008]

Re : Onglet en couleur

Bonjour Gorfael,
Re,

J'ai testé les 2 versions sur un 2007 avec succès...
Celle de Gorfael a tout de même l'avantage de remettre les onglets sans couleurs pour les jours d'après 😉