Discussion :

[abj8077]

Bonjour,

Dans un classeur de deux feuilles je souhaite afficher à l'écran
chaque feuille pendant une minute .

Je commence par afficher la première feuille
et après une minute j'affiche la deuxième feuille
et après une minute j'affiche la première feuille
et je veux que çà tourne comme ça en permanence
Si quelqu'un à une idée sur la façon de procéder

[Theze]

Bonsoir,

A tester si ça convient. Mettre deux boutons sur une barre d'outils et affecter à 1 la proc "Afficher" et à l'autre la proc "ArreterDemarrer". Code à mettre dans un module standard (le nom des feuilles doivent finir par 1 ou 2, à adapter) :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Dim I As Integer
Dim Arret As Boolean
 
Sub Chrono(Optional NonVisible As String)
 
    '>> "NonVisible" en Optional empèche que la macro
    'soit visible depuis Excel, elle ne sert à rien d'autre
 
    Application.OnTime Now + TimeValue("01:00:00"), "Afficher"
 
End Sub
 
Sub Afficher()
 
If I = 1 Then I = 2 Else I = 1
 
Worksheets("Feuil" & I).Activate
 
If Arret = False Then
    Chrono
End If
 
End Sub
 
Sub ArreterDemarrer()
 
    If Arret = True Then Arret = False
 
End Sub

Hervé.

[abj8077]

Merci herve pour ta réponse
j'ai pas mis de bouton mais j'ai mis le Sub Chrono(..)
et le sub afficher() dans un auto_open pour qu'il démarre en automatique
et ça a l'air de marcher

[Theze]

Bonsoir abj8077,

Seule la proc "Afficher" doit être appelée depuis l'évennement "Workbook_Open", les autre proc doivent, de préférence, être dans un module standard.

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_Open()
 
    Afficher
 
End Sub

Hervé.