Une solution très intéressante, qui rappelle fortement les fonctionnalités de PowerPoint, est l’affichage des tableaux dans un classeur les uns après les autres. L’intervalle après lequel passer à la feuille suivante, Vous pouvez décider vous-même. Prenez la solution pour cette tâche dans la macro suivante :

Sub LancerLaDiaporama ()

Dim i As Long

For i = 1 To ActiveWorkbook.Sheets.Count

 Sheets(i).Activate

 Application.Wait Now + TimeValue("00:00:05")

Next i

End Sub

Commentaires

■ La première étape consiste à déterminer le nombre de feuilles dans le classeur actif. Cela constitue la base de la boucle.

■ Vous pouvez interrompre l’exécution de la macro pendant un certain temps avec l’instruction Application.Wait. Pour ce faire, ajoutez exactement cinq secondes à l’heure actuelle. Pour que cet ajout fonctionne, utilisez la fonction TimeValue, qui garantit que l’instruction qui suit entre parenthése est convertie dans un format d’heure valide. Après cinq secondes, vous activez la feuille de calcul suivante avec la méthode Activate.

 Lier les feuilles du classeur

Afin d’implémenter cette tâche, une nouvelle feuille de calcul est insérée dans la première étape, puis les noms de toutes les feuilles de calcul du classeur sont déterminés et écrits dans la feuille de calcul. Ensuite, les hyperliens sont définis.

Sub LierFeuilles()

Dim maFeuille As Worksheet

Dim maPlage As Range

Dim maCellule As Range

Sheets.Add

Range("A1").Select

For Each maFeuille In ActiveWorkbook.Sheets

ActiveCell.Value = maFeuille.Name

ActiveCell.Offset(1, 0).Select

Next maFeuille

Set maPlage = ActiveCell.CurrentRegion

For Each maCellule In maPlage

maCellule.Hyperlinks.Add macellule, "", _

maCellule.Value & "!" & ActiveCell.Address

Next maCellule

End Sub

Commentaires

■ Tout d’abord, insérez une nouvelle feuille de calcul. Pour ce faire, utilisez la méthode Add.

■ La première boucle traite toutes les feuilles du classeur et écrit les noms de chaque feuille  dans les cellules.

■ Dans la deuxième boucle, les hyperliens sont définis à partir de l’instruction maCellule.Hyperlinks.Add macellule, «  », maCellule.Value & « ! » & ActiveCell.Address.

En cliquant sur le lien hypertexte souhaité, vous accédez au tableau sur lequel vous avez cliqué.