Discussion :

[misterkey]

Bonjour à tous,

Je vais essayer d'être le plus clair possible.
J'ai un fichier qui lors de l'ouverture se lance automatiquement sur la page de démarrage "Loading" ensuite via macro il passe après 5 secondes sur la page 1... 5 secondes plus tard sur la page 2.... 5 secondes plus tard sur la page 3.
Je voudrais savoir si il serait possible de "boucler" cela afin que lorsqu'il arrive à la page 3, il recommence en repassant sur la page loading et ainsi de suite.

Je joins le fichier et vous remercie d'avance de votre contribution.

Amicalement.

[Invité]

Code Module1 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Page1()
 Sheets("Page1").Select
essai
End Sub
Sub Page2()
 Sheets("Page2").Select
essai
End Sub
Sub Page3()
 Sheets("Page3").Select
essai
End Sub
Sub Loading()
Sheets("Loading").Select
essai
End Sub

Code Module2 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub essai()
Static i As Integer
t = Array("", "Page1", "Page2", "Page3", "Loading")
i = i + 1
If i > UBound(t) Then i = 1
Application.OnTime Now + TimeSerial(0, 0, 5), t(i)
End Sub

autre possibilité!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub essai()
Static i As Integer
If i = 0 Then i = 1
t = Array("", "Page1", "Page2", "Page3", "Loading")
ThisWorkbook.Sheets(t(i)).Select
i = i + 1
If i > UBound(t) Then i = 1
Application.OnTime Now + TimeSerial(0, 0, 5), "essai"
End Sub

[misterkey]

Un tout grand merci Rdurupt ça fonctionne à merveille.
Il ne me reste plus qu'à trouver comment arrêter cette macro pour pouvoir modifier le fichier.

Super rapidité et efficacité.

[Invité]

Ajoute 2 boutons un start et un stop

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
public arrête as boolean
Sub essai()
Static i As Integer
If i = 0 Then i = 1
t = Array("", "Page1", "Page2", "Page3", "Loading")
ThisWorkbook.Sheets(t(i)).Select
i = i + 1
If i > UBound(t) Then i = 1
If arrête= false then Application.OnTime Now + TimeSerial(0, 0, 5), "essai"
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
private sub start_click()
arrête=false
essai
End sub
Private sub stop_click()
arrête=True
End sub

Pour modifier le fichier raccourci clavier [Alt] + [F11]

[misterkey]

Bonsoir,

Très sympa de votre part mais je ne vois pas bien ou je dois placer ces nouveaux codes.

Désolé mais je suis novice.

Bonne fin de soirée

[Invité]

Je suis pas sur d'avoir compris ta question.
Si tu veux juste modifier ton code alors le raccourci clavier t'emmènera vers to projet.

Si tu veux des bouton pour démarrer ou arrêté ta macro je t'expliquerai mais avant précises ce que tu veux exactement.