Défilement automatique excel pour projection
Résolu
Félebo
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Excel défilement ligne par ligne
- Partager photos en ligne - Guide
- Aller à la ligne excel - Guide
- Mètre en ligne - Guide
- Formule somme excel ligne - Guide
- Apparaitre hors ligne instagram - Guide
9 réponses
Bonjour,
<Outils >, <Macro>, <Nouvelle Macro>
Définir le nom et les touches de raccourci pour lancer la macro
<Ok>
puis
<outils>, <Macro> , <arrêter la macro>
puis <outils>, <Macro>,<macro>
sélectionner le nom de la macro définie précédemment
puis <Modifier>
on passe alors sous l'éditeur vba et dans la fenêtre nouvellement ouverte copier le code ci-dessous:
Fermer l'éditeur vba
sur la feuille excel utiliser les touches de raccourci définies au début pour lancer la macro
bonne suite
<Outils >, <Macro>, <Nouvelle Macro>
Définir le nom et les touches de raccourci pour lancer la macro
<Ok>
puis
<outils>, <Macro> , <arrêter la macro>
puis <outils>, <Macro>,<macro>
sélectionner le nom de la macro définie précédemment
puis <Modifier>
on passe alors sous l'éditeur vba et dans la fenêtre nouvellement ouverte copier le code ci-dessous:
NbLig = 8
Pause = "0:00:10"
Range("A1").Select
Derlig = Range("A" & Rows.Count).End(xlUp).Row
i = 1
While 1 < 2
Application.Wait Now + TimeValue(Pause)
ActiveWindow.SmallScroll Down:=NbLig
i = i + 8
If i > Derlig Then
ActiveWindow.SmallScroll up:=i
i = 1
End If
Wend
Fermer l'éditeur vba
sur la feuille excel utiliser les touches de raccourci définies au début pour lancer la macro
bonne suite
Merci Paf
Voici la macro dans vba
Sub Défilement()
NbLig = 8
Pause = "0:00:10"
Range("A1").Select
Derlig = Range("A" & Rows.Count).End(xlUp).Row
i = 1
While 1 < 2
Application.Wait Now + TimeValue(Pause)
ActiveWindow.SmallScroll Down:=NbLig
i = i + 8
If i > Derlig Then
ActiveWindow.SmallScroll up:=i
i = 1
End If
Wend
End Sub
Lorsque j'appuie sur ctrl+d (touche raccourci choisie), il ne se passe rien seul le pointeur de souri devient un sablier et reste indéfiniment.
Pour sortir il faut que j'appuie 2 fois sur Echap
Le débeger me donne la ligne i = 1en jaune.
Si tu peux m'aider, merci
Voici la macro dans vba
Sub Défilement()
NbLig = 8
Pause = "0:00:10"
Range("A1").Select
Derlig = Range("A" & Rows.Count).End(xlUp).Row
i = 1
While 1 < 2
Application.Wait Now + TimeValue(Pause)
ActiveWindow.SmallScroll Down:=NbLig
i = i + 8
If i > Derlig Then
ActiveWindow.SmallScroll up:=i
i = 1
End If
Wend
End Sub
Lorsque j'appuie sur ctrl+d (touche raccourci choisie), il ne se passe rien seul le pointeur de souri devient un sablier et reste indéfiniment.
Pour sortir il faut que j'appuie 2 fois sur Echap
Le débeger me donne la ligne i = 1en jaune.
Si tu peux m'aider, merci
Non il s'agit bien d'excel.
Je souhaite projeter les résultats obtenus sous excel qui sont affichés en plein écran sur mon portable.
Les lignes étant nombreuses, il faudrait les afficher par 8 et faire défiler ces paquets de 8 les uns après les autres avec une pause entre.
Je suis novice donc si utilisation de vba, soyez gentille de me donner la marche à suivre pour introduire le code dans excel.
Merci
Je souhaite projeter les résultats obtenus sous excel qui sont affichés en plein écran sur mon portable.
Les lignes étant nombreuses, il faudrait les afficher par 8 et faire défiler ces paquets de 8 les uns après les autres avec une pause entre.
Je suis novice donc si utilisation de vba, soyez gentille de me donner la marche à suivre pour introduire le code dans excel.
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonsoir,
Merci Paf, ton code fonctionne, il fallait que les cellules de A1 à A150 contiennent quelque chose
Comment faire pour stopper la boucle soit manuellement, soit après un certain nombre de boucles
Merci Paf, ton code fonctionne, il fallait que les cellules de A1 à A150 contiennent quelque chose
Comment faire pour stopper la boucle soit manuellement, soit après un certain nombre de boucles
re avec du retard
1) pour que ça fonctionne si la colonne A est toujours vide , modifier, dans Derlig = Range("A" & Rows.Count).End(xlUp).Row, "A" par la lettre de la première colonne non vide.
2) pour stopper la boucle manuellement : pas de solution simple( pour moi !) peut être qu' eriic pourrait l'indiquer?
3) pour arrêter après un certain nombre de boucle, le code ci dessous:
dans cette version, l'usage de la touche <Echap> interrompt la macro.
Bonne suite
1) pour que ça fonctionne si la colonne A est toujours vide , modifier, dans Derlig = Range("A" & Rows.Count).End(xlUp).Row, "A" par la lettre de la première colonne non vide.
2) pour stopper la boucle manuellement : pas de solution simple( pour moi !) peut être qu' eriic pourrait l'indiquer?
3) pour arrêter après un certain nombre de boucle, le code ci dessous:
NbLig = 8
NbBoucle = 100
Pause = "0:00:10"
Range("A1").Select
Derlig = Range("A" & Rows.Count).End(xlUp).Row
i = 1
For j= 1 To NbBoucle
Application.Wait Now + TimeValue(Pause)
ActiveWindow.SmallScroll Down:=NbLig
i = i + 8
If i > Derlig Then
ActiveWindow.SmallScroll up:=i
i = 1
End If
Next
dans cette version, l'usage de la touche <Echap> interrompt la macro.
Bonne suite
