Table des matières
Créer un index de lien hypertexte de toutes les feuilles de calcul dans le classeur
Allons plus loin dans la macro pour répertorier toutes les feuilles d'un classeur et créons un menu hypertexte pour chaque feuille d'un classeur. C'est un gain de temps considérable pour quelqu'un qui a de nombreuses feuilles et qui essaie de créer manuellement un menu d'hyperliens vers chacune d'entre elles.
Pour utiliser la macro, remplacez simplement le mot Sheet1 (il apparaît deux fois) dans le code par le nom de l'onglet où vous souhaitez les résultats. Assurez-vous qu'il n'y a pas d'informations importantes sur l'onglet de sortie car il efface les données avant de les écrire. Une fois la macro exécutée, une liste de chaque feuille avec un lien hypertexte vers chaque feuille est créée.
| 1234567891011121314151617181920 | Feuilles de sous-liste()Dim ws As Feuille de calculDim x en tant qu'entierx = 1Feuilles("Feuille1").Plage("A:A").EffacerPour chaque ws dans les feuilles de calculSheets("Sheet1").Cells(x, 1).SelectActiveSheet.Hyperlinks.Add _Ancre :=Sélection, Adresse :="", Sous-adresse := _ws.Name & "!A1", TextToDisplay:=ws.Namex = x + 1WS suivantFin du sous-marin |
