Faire defiler les pages d'un classeur Excel en VBA
JHache1801_
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je développe une petite application Excel et j'aurais aimé savoir si il serait possible de faire en sorte que les pages défiles automatiquement lorsqu'on lance une macro et que ce défilement s'arrête une fois que l'on appuie sur le clic gauche par exemple (pour ma part j'ai 9 pages et j'aimerais qu'une fois arrivé à la dernière page le défilement reprenne depuis le début)
PS: J'ai déjà une macro qui tourne au lancement du fichier Excel qui permet de le rafraîchir toute les secondes pour afficher l'heure sur une des pages (point qui me semble important de vous communiquer)
Merci d'avance
Cdlmnt
Je développe une petite application Excel et j'aurais aimé savoir si il serait possible de faire en sorte que les pages défiles automatiquement lorsqu'on lance une macro et que ce défilement s'arrête une fois que l'on appuie sur le clic gauche par exemple (pour ma part j'ai 9 pages et j'aimerais qu'une fois arrivé à la dernière page le défilement reprenne depuis le début)
PS: J'ai déjà une macro qui tourne au lancement du fichier Excel qui permet de le rafraîchir toute les secondes pour afficher l'heure sur une des pages (point qui me semble important de vous communiquer)
Merci d'avance
Cdlmnt
A voir également:
- Faire defiler les pages d'un classeur Excel en VBA
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Trier un tableau excel - Guide
1 réponse
Bonjour,
Voici une façon de faire
Un clic sur le bouton droit arrête le défilement.
Cela recommence 5 fois histoire que la boucle ne soit pas éternelle.
J'ai mis une attente de 1 seconde
Cordialement,
Voici une façon de faire
Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Sub DEFILE()
Dim Feuil_Cour As Worksheet
Dim iter As Integer
For iter = 1 To 5
For Each Feuil_Cour In ThisWorkbook.Worksheets
Feuil_Cour.Select
Application.Wait Now + TimeValue("0:00:01")
If GetAsyncKeyState(2) <> 0 Then
Exit Sub
End If
Next Feuil_Cour
Next iter
End Sub
Un clic sur le bouton droit arrête le défilement.
Cela recommence 5 fois histoire que la boucle ne soit pas éternelle.
J'ai mis une attente de 1 seconde
Cordialement,