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.

[misterkey]

Bonjour rdurupt,

Ce que tu ma fourni fonctionne très bien cependant, j'aimerai avoir la possibilité d'avoir 2 boutons sur le sheet loading. 1 bouton qui me permettrai de stopper la macro "essai" afin d'apporter des modifications sur les sheets et 1 second bouton qui me permettrai de relancer cette macro.
Cela en conservant comme c'est déjà le cas le lancement automatique de la macro au démarrage du fichier.
J'espère être le plus clair possible

Je te remercie d'avance de ton support.

[Invité]

Bonjour,

[misterkey]

Bonjour,

C'est parfait !
Exactement ce qu'il me fallait.
Encore un tout grand merci rdurupt.

Cordialement

[misterkey]

Bonjour Rdurupt, bonjour à tous...

Je viens de me rendre compte que tout fonctionne bien sauf lorsque j'ouvre un autre fichier excel.
J'ai un message d'erreur dans le module 2( le code ci dessous est en jaune).

Merci d'avance

Code :

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

ThisWorkbook.Sheets(t(i)).Select

[Invité]

Bonjour,
Teste comme ça

Code :

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

ThisWorkbook.Sheets(t(i)).activate

Si non

Code :

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

1
2
3
4
on error resume next
ThisWorkbook.Sheets(t(i)).Select
Err.clear
On error goto 0

[misterkey]

Re,

Voici le module mais je vais paraitre débile mais je le place ou le code que tu viens de me fournir.

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public arrête As Boolean
Sub défilement()
Static i As Integer
If arrête = True Then i = 0: Exit Sub
If i = 0 Then i = 1
t = Array("", "Loading", "Page1", "Page2", "Page3")
ThisWorkbook.Sheets(t(i)).Activate
i = i + 1
If i > UBound(t) Then i = 1
If arrête = False Then Application.OnTime Now + TimeSerial(0, 0, 5), "défilement"
 
End Sub

Ps:

Code :

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

ThisWorkbook.Sheets(t(i)).activate

me relance le fichier en cours mais ne résouds pas le problème.

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public arrête As Boolean
Sub défilement()
Static i As Integer
If arrête = True Then i = 0: Exit Sub
If i = 0 Then i = 1
t = Array("", "Loading", "Page1", "Page2", "Page3")
On error resume Next 'ici c'est pas grave de gérer les erreurs par l'absurde!
ThisWorkbook.Sheets(t(i)).select
Err.clear
On error goto 0
i = i + 1
If i > UBound(t) Then i = 1
If arrête = False Then Application.OnTime Now + TimeSerial(0, 0, 5), "défilement"
 
End Sub

[misterkey]

Bonjour Rdurupt,

Malgré la modification du code cela ne fonctionne pas.
Ouverture du fichier seul ok fermeture de celui-ci ok.
Lorsqu'un second fichier est ouvert en même temps, il est impossible de le sauvegarder (message erreur VBA end)
Je joins le fichier et te remercie du suport que tu m'as fourni.
Cordialement