Menu

Changement d'onglet automatique [Résolu]

blabla76000 26 Messages postés samedi 12 décembre 2015Date d'inscription 9 janvier 2018 Dernière intervention - 8 janv. 2018 à 15:59 - Dernière réponse : Patrice33740 6799 Messages postés dimanche 13 juin 2010Date d'inscription 19 avril 2018 Dernière intervention
- 9 janv. 2018 à 16:05
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 

12 réponses

Répondre au sujet
Patrice33740 6799 Messages postés dimanche 13 juin 2010Date d'inscription 19 avril 2018 Dernière intervention - 8 janv. 2018 à 16:42
0
Utile
2
Bonjour,

« façon autonome » c'est à dire sans que tu ne touche rien ?
Dans ce cas utilises un PowerPoint.
blabla76000 26 Messages postés samedi 12 décembre 2015Date d'inscription 9 janvier 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 6799 Messages postés dimanche 13 juin 2010Date d'inscription 19 avril 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 21540 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 24 avril 2018 Dernière intervention - 8 janv. 2018 à 17:40
0
Utile
8
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 21540 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 24 avril 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 26 Messages postés samedi 12 décembre 2015Date d'inscription 9 janvier 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 26 Messages postés samedi 12 décembre 2015Date d'inscription 9 janvier 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 21540 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 24 avril 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 26 Messages postés samedi 12 décembre 2015Date d'inscription 9 janvier 2018 Dernière intervention - 9 janv. 2018 à 14:53
C'est bon ça fonctionne !!! 1000 merci !!!
Commenter la réponse de eriiic