Comment parcourir une plage de cellules par macro avec timer

Version imprimable

22/07/2020, 15h42
patmicro

Comment parcourir une plage de cellules par macro avec timer

Bonjour à tous les lecteurs : N'étant pas un pro dans la programmation, je souhaite parcourir une plage de cellules par exemple B1 puis C1 puis D1 par macro avec un Timer qui se déclenche toutes les 15 secondes par exemple.
Donc de B1 on passe à C1 puis D1 etc. selon le nombre de cellules à parcourir, puis on reviens au point de départ. Ou autre solution on arrête le défilement lorsque la dernière cellule est atteinte. A cela il faut ajouter un bouton lancer le timer puis un second pour la l'arrêt. pas de déclenchement à l'ouverture du classeur.

Par avance merci pour votre aide.

Bonjour,

Ceci avec arrêt à la dernière cellule atteinte (dans l'exemple la cellule K1)

le fichier
Pièce jointe 575611

Le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Depart()
    Range("B1").Select
    Tempo
End Sub
 
Sub Deplacement()
    If ActiveCell.Address = "$K$1" Then Exit Sub
    ActiveCell.Offset(0, 1).Activate
    Tempo
End Sub
 
Sub Tempo()
    Application.OnTime Now + TimeValue("00:00:15"), "Deplacement"
End Sub

Cdlt

22/07/2020, 17h17
patmicro

Bonjour ARTURO83 : Merci pour ta participation cela fonctionne. Autre question comment Arrêter le timer sur une cellule?
23/07/2020, 07h08
ARTURO83

Bonjour,

Citation:

comment Arrêter le timer sur une cellule?

On peut l'arrêter sur n'importe quelle cellule, le tout est de connaître l'élément qui va déclencher l'arrêt.
Dans le cas précédent, on arrêtait le timer dès que l'on arrivait à la cellule K1, mais cela on pourrait l'arrêter en fonction du contenu de la cellule ou bien de sa couleur ou autre chose. .
Quel serait c'est élément déclencheur dans votre cas?

Cdlt
23/07/2020, 10h57
patmicro

Bonjour ARTURO83 : Merci pour ton aide. Oui en cliquant sur une cellule colorée ferait mon affaire, mais il faut pouvoir relancer le timer en continuant sur la cellule suivante jusqu'à la fin.

Voici un exemple, réagit au double-clic sur une cellule jaune, et d'arrête lorsque la cellule sélectionnée est jaune ou que la limite fixée est atteinte(dans le cas présent, la limite est la colonne 15)
le fichier
Pièce jointe 575693

le code dans le module de la feuille

Code:

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.EnableEvents = False
    Arret_Macro = False
    If ActiveCell.Interior.Color = RGB(255, 255, 0) Then Deplacement
    Application.EnableEvents = True
End Sub

Le code dans un module standard

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Arret_Macro As Boolean
 
Sub Deplacement()
    If Arret_Macro = True Or ActiveCell.Column > 15 Then Exit Sub 'S'arrête si la colonne est supérieure à 15
    Tempo
    ActiveCell.Offset(0, 1).Activate 'décalage
    If ActiveCell.Interior.Color = RGB(255, 255, 0) Then Arret_Macro = True ' si la couleur est trouvée, alors on s'arrête
End Sub
 
Sub Tempo()
    Application.OnTime Now + TimeValue("00:00:02"), "Deplacement"
End Sub

Cdlt

23/07/2020, 19h31
patmicro

Merci pour ton aide Problème résolu. A bientôt sur ce forum.