Un dégradé de couleurs pour vos onglets

Bon­jour à tous,

Voici un petit code VBA qui va vous per­me­t­tre de met­tre en couleurs vos onglets, his­toire de met­tre un peu de couleurs dans nos longues soirées ! 

Ce code fait par­tie du sémi­naire que je vais don­ner ici : http://www.xlerateur.com/seminaire-vba-gestion-des-tableaux-structures-listobjects/

N’at­ten­dez pas pour vous inscrire !

Atten­tion avant d’exé­cuter ce code, car toutes les couleurs d’on­glet exis­tantes seront réini­tial­isées. Vous pou­vez chang­er les couleurs en changeant le numéro du thème (xlThemeColorAccent2). En changeant le 0.8 et le 1.8, vous décidez des valeurs de départ et de fin pour les gra­di­ents de couleurs.

Téléchargez ici le fichi­er de test:

Sub ListerFeuiles()
Dim wksALister As Worksheet
Dim sglTintAndShade As Single
sglTintAndShade = 0.8
For Each wksALister In ThisWorkbook.Worksheets
    wksALister.Tab.ThemeColor = xlThemeColorAccent2
    wksALister.Tab.TintAndShade = sglTintAndShade
    sglTintAndShade = sglTintAndShade - (1.8 / ThisWorkbook.Worksheets.Count)
Next
End Sub

A bien­tôt.

Pour marque-pages : Permaliens.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.