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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
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
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
'---------------------
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
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
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
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