XL 2019 Diaporama Excel, comment faire ?

Y

Yassin9

XLDnaute Junior

• 11 Décembre 2022

• #2

MDP : DAHMAN

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 11 Décembre 2022

• #3

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

 

Vote positif 0 Vote négatif

Y

Yassin9

XLDnaute Junior

• 11 Décembre 2022

• #4

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

 

Vote positif 0 Vote négatif

Y

Yassin9

XLDnaute Junior

• 11 Décembre 2022

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Décembre 2022

• #6

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

Vote positif 0 Vote négatif