XL 2010 Affiche de feuilles en boucle

[lovesky]

Bonjour,

J'aurai aimé savoir si il était possible d'afficher une feuille d'un classer A, aprés x minutes, afficher une feuille d'un classeur B, ensuite aprés x minutes, revenir à l'affichage de la feuille du classeur A et ainsi de suite en boucle.

Si non, supposons que tout soit dans le même classeur, serait possible d'afficher Feuille A, aprés x minutes, afficher Feuille B, aprés x minutes, on revient à feuille A ... ainsi de suite en boucle.

Je vous remercie d'avance pour votre aide ou piste

 

[job75]

Bonsoir lovesky,

Créez le fichier A.xlsm et placez cette macro dans un module standard :

Sub Activer()
Static n, t 'mémorise les variables
Dim x, F1 As Worksheet, F2 As Worksheet
x = 1 'temps en minutes, à adapter
n = n + 1
On Error Resume Next
Set F1 = Workbooks("A.xlsm").Sheets("Feuil1") 'fichier et feuille à adapter
Set F2 = Workbooks("B.xlsm").Sheets("Feuil2") 'fichier et feuille à adapter
F1.Visible = xlSheetVisible: F2.Visible = xlSheetVisible 'si une des feuilles est masquée
Application.Goto IIf(n Mod 2, F1, F2).[A1]
Application.OnTime t, "Activer", , False
t = Now + x / 1440
Application.OnTime t, "Activer"
End Sub

Ouvrez (éventuellement) le fichier B.xlsm et lancez la macro.

A+