Discussion :

[ArnaudSME]

Bonjour à tous,

Je souhaite réaliser une supervision pour une ligne de production, le but etant d'afficher des données sur des télévisions.
Je dévellope ma supervision sur excel, mais je bloque cependant sur l'affichage.
En effet, je voudrais qu'il soit affiché en plein écran la feuille 1 et que 1 min après la feuille 2 apparaisse et 1 min après on retourne sur la feuille 1 etc ...

"le petit plus serais aussi d'afficher en plein écran ma sélection (sans le contour window), je ne sais pas si c'est possible"

Je vous met en pièce jointe mon fichier excel pour que vous visualiser un peu mieux

J'espère que quelqu'un sera capable de m'aider dans cette démarche.

Cordialement
Merci d'avance

Plaquettes - TEST3.xlsm

[antonysansh]

Bonjour ArnaudSME,

Je n'ai pas ouvert ton fichier car celui-ci comporte des macros et que conformément aux règles du forum, les fichiers joints dans le premier post sont a proscrire.
A lire si ce n'est pas déjà fait : Fichier joint dans vos discussions

Pour ton problème, je pense que c'est faisable en 3 macros :
Une pour switcher de la feuille 1 vers la 2 lancé toutes les minutes

Code :

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

1
2
3
4
5
6
7
8
Sub Switch()
    If ActiveSheet.Index = 1 Then
        ThisWorkbook.Sheets(2).Select
    Else
        ThisWorkbook.Sheets(1).Select
    End If
        Application.OnTime Now + TimeSerial(0, 1, 0), "Switch"
End Sub

Ensuite 2 autres macros, une pour lancer le switch et une pour le stopper :

Code :

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

1
2
3
4
5
Sub StartSwitch()
    Application.DisplayFullScreen = True
    ThisWorkbook.Sheets(1).Select
        Call Switch
End Sub

Code :

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

1
2
3
4
5
Sub StopSwitch()
    On Error Resume Next
        Application.OnTime Now + TimeSerial(0, 0, 3), "Switch", , False
        Application.DisplayFullScreen = False
End Sub

[Sebphyto]

Salut à vous,

Voici une autre exemple

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Excel.Application.OnTime Now + TimeValue("00:00:05"), "test"
 If ActiveSheet.Name = "Feuil1" Then
    Feuil2.Activate
ElseIf ActiveSheet.Name = "Feuil2" Then
    Feuil1.Activate
    End If
 
 End Sub

A+

[antonysansh]

Solution similaire a la mienne Sebphyto

Mais je préfère toujours stopper le processus par une macro.

Pour être encore plus complet, on peut ajouter dans le module Thisworkbook :

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call StopSwitch
End Sub

Ou même sur sélection d'une feuille différente de la feuille1 ou de la feuille2

[Sebphyto]

C juste Antony, bien vu
Avec tous çà Arnaud devrait s'en sortir...

A+