Menu

Changement d'onglet automatique [Résolu]

blabla76000 32 Messages postés samedi 12 décembre 2015Date d'inscription 7 octobre 2018 Dernière intervention - 8 janv. 2018 à 15:59 - Dernière réponse : blabla76000 32 Messages postés samedi 12 décembre 2015Date d'inscription 7 octobre 2018 Dernière intervention
- 7 oct. 2018 à 12:51
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,
Afficher la suite 

Votre réponse

14 réponses

Patrice33740 7319 Messages postés dimanche 13 juin 2010Date d'inscription 17 octobre 2018 Dernière intervention - 8 janv. 2018 à 16:42
0
Merci
Bonjour,

« façon autonome » c'est à dire sans que tu ne touche rien ?
Dans ce cas utilises un PowerPoint.
blabla76000 32 Messages postés samedi 12 décembre 2015Date d'inscription 7 octobre 2018 Dernière intervention - 9 janv. 2018 à 09:35
Un powerpoint ne va pas tourner indéfiniment et puis là j'ai des formules pour le classement mais merci tout de même.
Patrice33740 7319 Messages postés dimanche 13 juin 2010Date d'inscription 17 octobre 2018 Dernière intervention - 9 janv. 2018 à 16:05
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 !
Commenter la réponse de Patrice33740
eriiic 22073 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 20 octobre 2018 Dernière intervention - 8 janv. 2018 à 17:40
0
Merci
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

eriiic 22073 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 20 octobre 2018 Dernière intervention - 9 janv. 2018 à 13:02
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
blabla76000 32 Messages postés samedi 12 décembre 2015Date d'inscription 7 octobre 2018 Dernière intervention - 9 janv. 2018 à 13:26
Même avec votre fichier ça fait pareil ça met :
"Public tSav As Date
Bonjour,"
blabla76000 32 Messages postés samedi 12 décembre 2015Date d'inscription 7 octobre 2018 Dernière intervention - 9 janv. 2018 à 13:47
Je vous mets mon document si ça ne vous embête pas :
https://www.cjoint.com/c/HAjmUdQdJtf
eriiic 22073 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 20 octobre 2018 Dernière intervention - 9 janv. 2018 à 14:06
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
blabla76000 32 Messages postés samedi 12 décembre 2015Date d'inscription 7 octobre 2018 Dernière intervention - 9 janv. 2018 à 14:53
C'est bon ça fonctionne !!! 1000 merci !!!
Commenter la réponse de eriiic
blabla76000 32 Messages postés samedi 12 décembre 2015Date d'inscription 7 octobre 2018 Dernière intervention - 7 oct. 2018 à 12:38
0
Merci
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 ?
blabla76000 32 Messages postés samedi 12 décembre 2015Date d'inscription 7 octobre 2018 Dernière intervention - 7 oct. 2018 à 12:51
C'est bon ça fonctionne à nouveau, c'était un bug
Commenter la réponse de blabla76000