Changement d'onglet automatique
Résolu/Fermé
blabla76000
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018
-
8 janv. 2018 à 15:59
blabla76000 Messages postés 32 Date d'inscription samedi 12 décembre 2015 Statut Membre Dernière intervention 7 octobre 2018 - 7 oct. 2018 à 12:51
blabla76000 Messages postés 32 Date d'inscription samedi 12 décembre 2015 Statut Membre Dernière intervention 7 octobre 2018 - 7 oct. 2018 à 12:51
A voir également:
- Passer d'un onglet à l'autre chrome automatiquement
- Restaurer onglets chrome - Guide
- Passer de windows 7 à windows 10 - Guide
- Passer de qwerty a azerty - Guide
- Mise a jour chrome - Guide
- Passer de majuscule à minuscule - Guide
3 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
8 janv. 2018 à 16:42
8 janv. 2018 à 16:42
Bonjour,
« façon autonome » c'est à dire sans que tu ne touche rien ?
Dans ce cas utilises un PowerPoint.
« façon autonome » c'est à dire sans que tu ne touche rien ?
Dans ce cas utilises un PowerPoint.
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 212
8 janv. 2018 à 17:40
8 janv. 2018 à 17:40
Bonjour,
avec une macro, dans un module standard :
ici toutes les 5s.
Dans thisWorkbook :
eric
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
blabla76000
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018
9 janv. 2018 à 09:33
9 janv. 2018 à 09:33
Bonjour,
J'ai essayé votre solution :
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
J'ai fait : Développeur -> Enregistrer une macro -> j'ai rempli le champ raccourci puis j'ai copié votre code dans description.
Est-ce bien ce qu'il faut faire ?
Merci
J'ai essayé votre solution :
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
J'ai fait : Développeur -> Enregistrer une macro -> j'ai rempli le champ raccourci puis j'ai copié votre code dans description.
Est-ce bien ce qu'il faut faire ?
Merci
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 212
9 janv. 2018 à 10:36
9 janv. 2018 à 10:36
Bonjour,
non.
Alt+F11 pour aller dans VBE.
Clic-droit dans le projet du classeur ( à gauche) et insertion / module, coller la 1ère partie
Double-clic sur ThisWorkboook dans le projet, coller la suite.
Enregistrer sous..., choisir *.xlsm pour garder les macros
eric
non.
Alt+F11 pour aller dans VBE.
Clic-droit dans le projet du classeur ( à gauche) et insertion / module, coller la 1ère partie
Double-clic sur ThisWorkboook dans le projet, coller la suite.
Enregistrer sous..., choisir *.xlsm pour garder les macros
eric
blabla76000
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018
9 janv. 2018 à 11:37
9 janv. 2018 à 11:37
Bonjour Eric et merci pour votre aide.
Une fois tout ça fait, je suppose qu'il faut exécuter avec f5 ?
ça ne fonctionne toujours pas... ça me met :
"Erreur de compilation
Attendu : Expression"
Une fois tout ça fait, je suppose qu'il faut exécuter avec f5 ?
ça ne fonctionne toujours pas... ça me met :
"Erreur de compilation
Attendu : Expression"
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 212
Modifié le 9 janv. 2018 à 13:03
Modifié le 9 janv. 2018 à 13:03
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
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
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018
9 janv. 2018 à 13:26
9 janv. 2018 à 13:26
Même avec votre fichier ça fait pareil ça met :
"Public tSav As Date
Bonjour,"
"Public tSav As Date
Bonjour,"
blabla76000
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018
7 oct. 2018 à 12:38
7 oct. 2018 à 12:38
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 ?
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
Messages postés
32
Date d'inscription
samedi 12 décembre 2015
Statut
Membre
Dernière intervention
7 octobre 2018
7 oct. 2018 à 12:51
7 oct. 2018 à 12:51
C'est bon ça fonctionne à nouveau, c'était un bug
9 janv. 2018 à 09:35
Modifié le 9 janv. 2018 à 16:08
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 !