Discussion :

[Canidé]

Bonjour

Je cherche à faire défiler automatiquement les lignes d'une feuille excel avec une pause.
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).

Si code ou macro, comment les introduire à la feuille pour faire fonctionner.

Merci pour votre aide qui me sera très précieuse.

[lenovo49]

Bonsoir,

Je penses que tu cherches à faire une sorte d'effet??

Si c'est ce genre de chose tu peux essayer ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Deffilement()
 
    Dim nbligne, nbDeCellules
 
    Range("A1").Select
 
     nbligne = 8
nbDeCellules = 8
 
boucle:
    Sleep 10000 ' temps en milliseconde
    Rows("1:" & nbligne).Select 'selection pour le masquage des lignes
    Selection.EntireRow.Hidden = True ' masque la selection
    ActiveCell.Offset(nbligne, 0).Activate 'active la prochaine serie
    If ActiveCell.Offset(1, 0).Value <> "" Then 'controle le nombre de serie
    nbligne = nbligne + nbDeCellules 'ajoute la variable du nbre de cellule
    GoTo boucle 'boucle la série
    End If
 
    Cells.EntireRow.AutoFit 'affiche l'ensemble des cellules masquées
    Range("A1").Select ' retourne au départ de la serie
 
End Sub

A coller dans un module dans vb...

A+

[Canidé]

Cette ligne ne passe pas: fenêtre erreur de compilation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Merci

[lenovo49]

Bonsoir,
Essayes avec le code complet avec ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Deffilement()
 
    Dim nbligne, nbDeCellules
 
    Range("A1").Select
 
     nbligne = 8
nbDeCellules = 8
 
boucle:
    Application.Wait (Now + TimeValue("0:00:10"))' temps  de boucle
    Rows("1:" & nbligne).Select 'selection pour le masquage des lignes
    Selection.EntireRow.Hidden = True ' masque la selection
    ActiveCell.Offset(nbligne, 0).Activate 'active la prochaine serie
    If ActiveCell.Offset(1, 0).Value <> "" Then 'controle le nombre de serie
    nbligne = nbligne + nbDeCellules 'ajoute la variable du nbre de cellule
    GoTo boucle 'boucle la série
    End If
 
    Cells.EntireRow.AutoFit 'affiche l'ensemble des cellules masquées
    Range("A1").Select ' retourne au départ de la serie
 
End Sub

Au plaisir.

[Canidé]

Rien ne se passe sauf pointeur souri sablier quelques secondes

Merci

[lenovo49]

Bonsoir,

Deux questions, as tu ajouté du texte de la cellule A1 à... (exemple A20)?
Il y t-il un bug au lancement?

Chez moi ca fonctionne correctement.

J'attends tes réponses.