Macro changement de feuilles en boucle

Bonjour,

Je dois créer une petit fichier excel dans le cadre de mon alternance pour fluidifier les échanges entre nos services logistiques et ordonnancement.

Je coince sur des questions relatives à des macros.

Je souhaiterais afficher les onglets "TDB S" et "TDB S+1" sur une télé, et j'aimerais pour ça mettre en place une rotation automatique ( toutes les 30 secondes par exemple) à l'aide d'une macro.

Par ailleurs j'ai une macro qui tourne sur ce fichier qui permet de mettre à jour automatiquement les TCD, malheureusement cela marche uniquement pour la semaine en cours et non la semaine s+1.

Je vous remercie d'avance pour votre aide.

Pierre

Bonjour :)

Je te propose un code pour alterner avec une intervalle de 30 secondes 2 feuilles :

A noté que ce code est une boucle infinie, pour la stoppée tu devras utiliser le raccourci clavier Ctrl+pause

Sub Altern()
Dim f1 As Worksheet, f2 As Worksheet

Set f1 = ThisWorkbook.Worksheets("Feuil1")
Set f2 = ThisWorkbook.Worksheets("Feuil2")

JeBoucle:
        f1.Activate
        Application.Wait (Now + TimeValue("00:00:30"))
        f2.Activate
        Application.Wait (Now + TimeValue("00:00:30"))
GoTo JeBoucle
End Sub