Changement d'onglet automatique [Résolu/Fermé]

Signaler
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018
-
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018
-
Bonjour,

Dans le cadre d'une compétition sportive, j'ai créé un tableau qui sera projeté et qui est composé de trois onglets :
- le classement ;
- les résultats ;
- le match en direct.
J'aimerais savoir s'il existe un moyen de faire en sorte que l'écran passe d'un onglet à l'autre (et ainsi de suite) de façon autonome ?

Cordialement,

3 réponses

Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
1 669
Bonjour,

« façon autonome » c'est à dire sans que tu ne touche rien ?
Dans ce cas utilises un PowerPoint.
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018

Un powerpoint ne va pas tourner indéfiniment et puis là j'ai des formules pour le classement mais merci tout de même.
Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
1 669
Un powerpoint tourne aussi longtemps que tu le définis (il peut boucler sur lui même).
Tu peux mettre dans le ppt des images liées aux feuilles de calcul, donc qui suivent les évolutions du fichier Excel, donc travailler sur le fichier Excel et afficher le ppt sur un autre écran !
Messages postés
24099
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 juin 2021
6 800
Bonjour,

avec une macro, dans un module standard :
Public tSav As Date

Sub suivant()
    Sheets(ActiveSheet.Index Mod Sheets.Count + 1).Select
    tSav = Now + TimeValue("00:00:05")
    Application.OnTime tSav, "suivant"
End Sub

Sub stopSuivant()
    Application.OnTime tSav, "suivant", , False
End Sub

ici toutes les 5s.

Dans thisWorkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
stopSuivant
End Sub

' et si tu veux qu'elle se lance en auto à l'ouverture :
Private Sub Workbook_Open()
suivant
End Sub

eric

Messages postés
24099
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 juin 2021
6 800
tu as dû mal copier le code.
Il faut lancer la macro Suivant, ou bien c'est automatique à l'ouverture si tu as mis le Private Sub Workbook_Open().
La seule erreur qu'il pouvait y avoir c'est à la fermeture si tu avais arrêté manuellement avec stopSuivant depuis plus de 5 s.
https://www.cjoint.com/c/HAjl7Yc5cfn
eric
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018

Même avec votre fichier ça fait pareil ça met :
"Public tSav As Date
Bonjour,"
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018

Je vous mets mon document si ça ne vous embête pas :
https://www.cjoint.com/c/HAjmUdQdJtf
Messages postés
24099
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 juin 2021
6 800
Même avec votre fichier ça fait pareil ça met :
"Public tSav As Date
Bonjour,"

Pas possible. C'est soit ça tourne, soit ça plante avec un message d'erreur mais pas Bonjour
On parle bien d'excel ?
Tu l'ouvres, tu acceptes les macros, et tu attends 5s sans rien faire, l'onglet suivant s'affiche
Inutile que je modifie ton fichier si tu n'arrives pas à faire fonctionner le mien chez toi.
eric
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018

C'est bon ça fonctionne !!! 1000 merci !!!
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018

Bonjour,

J'avais demandé de l'aide ici pour créer un fichier Excel qui répertorie le classement d'un championnat de foot-fauteuil. Il y avait donc plusieurs onglets notamment pour le classement, les résultats, le score du match en direct, les sponsors... Ce document a été projeté au moment de la compétition pour que les spectateurs suivent l'évolution du classement.
Les tableaux était automatisés pour que le classement évolue à l'aide de formules ; tout allait bien.

Il y avait également une macro pour que l'onglet "visible" (ou actif) change toutes les 15 secondes.
L'an dernier ça a parfaitement fonctionné, j'avais Excel 2007. Aujourd'hui j'ai la dernière version et j'ai un souci.
Normalement, quand on ouvre le document, il y a une alerte de sécurité concernant la macro qui apparaît en jaune. On clique sur "activer le contenu" et la macro se lance. Si on ferme le fichier puis qu'on l'ouvre à nouveau, ce message de sécurité apparaît à nouveau. Ce n'est pas mon cas. Le message n'apparaît plus.

J'ai fait quelques recherches sur internet et je lis qu'il faut aller dans les paramètres Excel pour influencer le déclenchement de ce message d'alerte mais j'ai beau suivre les indications, rien ne change et le message ne revient pas.

Quelqu'un aurait une explication ou une solution ?
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018

C'est bon ça fonctionne à nouveau, c'était un bug