affichache alternatif

Le
jeje02 Hors ligne
Bonjour,
Chères excelliens, avez vous un petit code VBA pour afficher alternativement la feuille 1 et la feuille 2 toutes les minutes, avec un bouton "on" "off" pour contrôler cet affichage.
Merci à vous
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26389020
Bonjour,


Voici un exemple : 2 feuilles dans le classeur portant comme
nom d'onglet, "Feuil1" et "Feuil2". La sélection des feuilles
se fait à tous les 2 secondes pour les besoins de l'exercice.

Dans un MODULE STANDARD, copie ce qui suit :

'---------------------
Option Explicit
Dim T As Date
'---------------------

'Tu lances la procédure par ceci:
'---------------------
Sub Ma_Sub()
T = Now + TimeValue("00:00:02")
Application.OnTime T, "Ma_Sub"
'Programmation de l'évènement toutes les secondes
If ActiveSheet.Name = "Feuil1" Then
Worksheets("Feuil2").Select
Else
Worksheets("Feuil1").Select
End If
End Sub
'---------------------

'pour arrêter la procédure :
'---------------------
Sub Arrêt_procédure()
On Error Resume Next
'Stopper la gestion de l'évènement OnTime en cours
Application.OnTime T, "Ma_Sub", , False
End Sub
'---------------------


MichD
jeje02 Hors ligne
Le #26389072
Le jeudi 11 Février 2016 à 10:36 par jeje02 :
Bonjour,
Chères excelliens, avez vous un petit code VBA pour afficher
alternativement la feuille 1 et la feuille 2 toutes les minutes, avec un bouton
"on" "off" pour contrôler cet affichage.
Merci à vous


MERCI MICHD
toujours au RDV, ca marche à merveille
tres tres cordialement
Publicité
Poster une réponse
Anonyme