Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Diaporama Excel, comment faire ?

Yassin9

XLDnaute Junior
Bonjour à tous,

Je recherche un code vba qui permet de passer d'une feuille à une autre selon un intervalle de temps de 5 min par exemple.

Concrètement : Avancement complet 5 min-> Feuil1 5min-> Feuil2 5min-> Feuil3 5min-> Feuil4 5min-> Avancement complet 5min-> .... indéfiniment

 

Pièces jointes

  • Copie de AppMSegula(5454).xlsm
    893.5 KB · Affichages: 7

job75

XLDnaute Barbatruc
Bonsoir Yassin9, fanfan38,

Voyez le fichier joint et le code dans ThisWorkbook :
VB:
Dim t, n% 'mémorise les vatables

Private Sub Workbook_Open()
Carrousel
End Sub

Sub Carrousel()
Dim delai
delai = 1 'en minutes
On Error Resume Next
Application.OnTime t, Me.CodeName & ".Carrousel", , False 'RAZ
n = n + 1
If IsError(Me.Sheets(n)) Then n = 1
Me.Sheets(n).Visible = xlSheetVisible
Me.Sheets(n).Activate
t = Now + delai / 1440
Application.OnTime t, Me.CodeName & ".Carrousel" 'relance le processus
End Sub
Le processus se déclenche à l'ouverture du fichier.

J'ai mis un délai d'attente de 1 minute.

A+
 

Pièces jointes

  • Carrousel(1).xlsm
    20.1 KB · Affichages: 4

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…