XL 2019 Diaporama Excel, comment faire ?

[Yassin9]

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

 

[Yassin9]

MDP : DAHMAN

 

[fanfan38]

On ne poste pas sur 2 forum en même temps
A+ François

 

[Yassin9]

@fanfan38 désolé je ne savais que c'était interdit de poster sur 2 forums

 

[Yassin9]

@JHA Je sollicite ton aide pour ce sujet car tu as déjà auparavant répondu à plusieurs de mes interrogations

 

[job75]

Bonsoir Yassin9, fanfan38,

Voyez le fichier joint et le code dans ThisWorkbook :

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+