Bonjour à tous,

Etant en difficulté sur une macro pourtant simple, je viens à vous pour essayer de trouver la solution à mon petit problème.
La macro que j'écris, ou du moins, que j'essaie d'écrire, lance des macros successivement qui vont tout simplement aller d'une page à une autre avec "Application.Ontime". Le fait est que je voudrais que cela se répète pendant un certain temps, admettons 10 minutes mais je n'arrive pas à faire repartir la macro au début, c'est à dire qu'elle recommence toute seule du début.
De façon plus claire, je voudrais que le "now" se renouvelle une fois que la macro est arrivée à la fin. Enfin je crois que c'est ça l'idée.

Ci-dessous, mes codes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub affichagetv()
ActiveWorkbook.Worksheets("Feuil1").Select
Application.OnTime Now + TimeValue("00:00:05"), "changementfeuille"
Application.OnTime Now + TimeValue("00:00:10"), "changementfeuille2"
End Sub
 
Sub changementfeuille()
ActiveWorkbook.Worksheets("Feuil2").Select
End Sub
 
Sub changementfeuille2()
ActiveWorkbook.Worksheets("Feuil3").Select
End Sub