Bonjour,
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.
Feuille: 5 colonnes, X lignes
Affichage: 5 colonnes, 8 lignes, pause de 10 secondes puis les 8 lignes suivantes et ainsi de suite jusqu'à la dernière ligne
Défilement en boucle (à la fin, repartir au départ).
Je suis novice donc si utilisation de vba, soyez gentille de me donner la marche à suivre pour introduire le code dans excel.
Merci
Windows XP pack3
Excel 2002
Bonjour et bienvenue au forum.
N'étant pas un spécialiste du VBA, j'ai transféré la traduction de votre question à mes collègues anglophones .
Par ailleurs j'ai déplacé votre question dans le forum des questions qui ne sont pas en anglais.
Bàv
Quoting entire posts clutters the forum and makes threads hard to read !
If you are pleased with a member's answer then use the Star icon to rate it
Click here to see forum rules
Bonjour GuyC,
Bienvenue sur le forum. S'il vous plaît fournir un exemple de classeur Excel.
Notez que vous pouvez avoir plus d'entrée du forum non-anglais.
Toutes mes excuses pour mon pauvre français.
Cordialement, TMS
Question translation sent to http://www.excelforum.com/the-water-...ml#post2636503
Quoting entire posts clutters the forum and makes threads hard to read !
If you are pleased with a member's answer then use the Star icon to rate it
Click here to see forum rules
Peut-être, quelque chose comme ceci:
Option Explicit Sub Affichez_8x5() Dim lLR As Long Dim i As Long Dim lWait As Long Dim lPause As Long: lPause = 500000 ' adjust count for length of pause lLR = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row Sheets("Sheet2").Select Range("A1").Select ActiveWindow.Zoom = 200 For i = 1 To lLR Step 8 With Sheets("Sheet1") .Range(.Range("A" & i), .Range("E" & i + 7)).Copy Sheets("sheet2").Range("A1") For lWait = 1 To lPause DoEvents Next End With Next ActiveWindow.Zoom = 100 End Sub
Vous devez ajuster lPause pour augmenter la durée de la pause.
Cordialement, TMS
Last edited by TMShucks; 11-07-2011 at 08:34 AM.
Par exemple ...
Une alternative,
Adaptez la durée du repos d'une a deux secondes : DateAdd("s", 2, Now)Sub snb() For j = 1 To Sheets(1).UsedRange.Rows.Count Step 8 Application.Goto Sheets(1).Cells(j, 1), True Application.Wait DateAdd("s", 1, Now) ' une seconde Next End Sub
Last edited by snb; 11-07-2011 at 10:13 AM.
Cela va faire défiler la page, mais il affiche plus de huit lignes. Est-ce OK?
Merci snb le défilement fonctionne mais il faudrait que ça tourne en boucle, une fois toutes les lignes affichées, repartir aux 10 premières lignes et ainsi de suite
J'ai oublié de préciser que le nombre de lignes à affiché est maintenant de 10 j'ai rectifié dans le code c'est ok, reste à le faire fonctionner en boucle
Mais comment on peut arreter le macro ??
Sub snb() j=1 do Application.Goto Sheets(1).Cells(j, 1), True Application.Wait DateAdd("s", 1, Now) ' une seconde j = iif( j+10 >= Sheets(1).UsedRange.Rows.Count,1,j +10) loop End Sub
Last edited by snb; 11-07-2011 at 10:54 AM.
Pour TMShuck
Si je demande execution de la macro, une fenêtre apparait
Erreur d'execution '9'
L'indice n'appartient pas à la sélection
Le débogage me donne en jaune la ligne
lLR = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Rowen jaune
Merci snb, ça boucle correctement; pour stopper je fais 2 fois Echap et clic sur fin
Est il possible de démarrer la macro avec un raccourci clavier, si oui , marche à suivre: merci
est-il possible que vous n'avez pas de Feuil1?
Qu'est-ce que vous appelez les feuilles
Peut-être:
lLR = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
TMS
Pour snb ne peux t on pas donner un nombre de boucles à la suite de quoi le défilement s'arreterait
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Reply With Quote
Bookmarks