Archives de l’auteur : Gaetan Mourmant

Un dégradé de couleurs pour vos onglets

de | |
Écrire un commentaire

Bonjour à tous,

Voici un petit code VBA qui va vous permettre de mettre en couleurs vos onglets, histoire de mettre un peu de couleurs dans nos longues soirées !

Ce code fait partie du séminaire que je vais donner ici : https://www.xlerateur.com/seminaire-vba-gestion-des-tableaux-structures-listobjects/

N'attendez pas pour vous inscrire !

Attention avant d'exécuter ce code, car toutes les couleurs d'onglet existantes seront réinitialisées. Vous pouvez changer 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 gradients de couleurs.

Téléchargez ici le fichier de test:

Couleurs_OngletsTélécharger

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 bientôt.