La touche magique F5, Cellules...

La touche magique F5 permet de sélectionner les dépendants et antécédents d'un calcul. Si vous ne connaissez pas ces fonctions d'audit, vous pouvez cliquer ici pour vous rafraichir la mémoire !

C'est particulièrement utile si vos cellules sont loin les unes des autres dans la même feuille..

Pour cela, touche F5, Cellules..., Antécédents, "Directs seulement" ou "Tous niveaux" en fonction de vos besoins.

Une fois les cellules sélectionnées, vous pouvez utiliser la touche TAB pour naviguer d'une cellule à l'autre.

Créer un complément Excel et revoir ses bases en VBA

Bonjour,

Dans le cadre de cette formation, vous pourrez accéder à l'explication complète de la création d'un complément Excel de A à Z (userform, procédure paramétrable, ajout du bouton dans le ruban, transformation en complément, choix du bouton, etc.).

S'inscrire à la formation : https://www.xlerateur.com/seminaire-vba-gestion-des-tableaux-structures-listobjects/

Ce complément vous permettra de faire ceci :

Un dégradé de couleurs pour vos onglets

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:

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.