Steve a un classeur dans lequel il crée un nouvel onglet de feuille de calcul pour chaque projet sur lequel il travaille. Pour garder les choses gérables, il masque les onglets / projets terminés. Steve a maintenant plus de 100 feuilles de calcul cachées. Sur une base régulière, il a besoin de revoir un projet terminé. Pour ce faire, Steve choisit d’afficher les feuilles de calcul. Cela affiche la boîte de dialogue Afficher qui contient les noms de feuille de calcul masqués, sans ordre apparent. Pour trouver un onglet / projet, il doit faire défiler cette toute petite boîte de dialogue et chercher le bon onglet. Steve trouve cela très laborieux et prend du temps, il se demande donc s’il existe un meilleur moyen de trouver et d’afficher la feuille de calcul pour un projet terminé.

Une solution à ce problème trop courant est que vous pouvez créer un index ou une table des matières pour les feuilles de calcul de votre classeur. Pour ce faire, ajoutez une nouvelle feuille de calcul, puis placez des liens hypertexte sur la feuille de calcul vers toutes les différentes feuilles de calcul de votre classeur. Il peut inclure à peu près toutes les informations que vous souhaitez sur les feuilles de calcul (en plus du lien hypertexte). Cliquez sur le lien hypertexte et la feuille de calcul souhaitée s’affiche, sans qu’il soit nécessaire de faire défiler les boîtes de dialogue.

Vous pouvez également créer un deuxième classeur contenant uniquement vos projets terminés. Il est assez facile de déplacer des feuilles de calcul d’un classeur à un autre, donc en utilisant deux classeurs (« actif » et « terminé »)

serait un jeu d’enfant. De plus, vous n’avez pas besoin de masquer l’une des feuilles de calcul dans le classeur contenant les projets terminés et vous pouvez les mettre dans l’ordre souhaité.

Si vous préférez conserver votre classeur tel quel, vous pouvez envisager de créer une macro qui rendrait l’affichage de vos feuilles de calcul masquées un jeu d’enfant. Prenons l’exemple suivant:

Sub UnHideWorksheets()

Dim sSheetName As String     Dim w As Worksheet     Dim sTemp As String

sTemp = "Name (or partial) of sheet to show?"

sSheetName = InputBox(sTemp, "Show Hidden Sheet")

If sSheetName > "" Then         sSheetName = LCase(sSheetName)

For Each w In Sheets             w.Tab.ColorIndex = xlColorIndexNone             sTemp = LCase(w.Name)

If Instr(sTemp, sSheetName) Then                 w.Visible = True                 w.Tab.ColorIndex = 6             End If         Next w     End If End Sub

La macro demande à l’utilisateur un nom de feuille de calcul, puis parcourt toutes les feuilles de calcul. S’il trouve une correspondance, la feuille de calcul s’affiche et la couleur de l’onglet de la feuille de calcul est définie sur jaune. La macro fonctionne en fait avec des correspondances partielles, ce qui signifie que vous ne pouvez entrer qu’une partie du nom d’une feuille de calcul, et toutes les feuilles de calcul qui contiennent la correspondance partielle seront non masquées. Vous pouvez facilement attribuer la macro à une touche de raccourci ou à votre barre d’outils d’accès rapide afin de pouvoir l’appeler en un clin d’œil.

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (13589) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.