Arrêter une macro en quittant une cellule

Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   -  
Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   -
Bonsoir la team,

Je me suis "amusé" à faire exécuter une macro, faisant clignoter une cellule, lors d'un appui sur bouton (code récupéré et adapté depuis Google).

Cependant, malgré des dizaines de tentatives, il m'est impossible de trouver l'astuce pour arrêter ledit clignotement.

J'avais pensé trouver la solution avec :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call ArrêtEclairage
End Sub


Mais forcément, je me suis rendu très vite compte que dès que je clique sur une cellule, j'ai un message d'erreur (Erreur d'exécution '1004')

Voici le code du clignotement, lancé par l'appui bouton :
Dim vNow As Variant
Sub Eclairage()

    vNow = Now + TimeValue("00:00:02")
        If Range("A3:J3").Select Then
            If Range("A3:J3").Interior.ColorIndex = 48 Then '4
                Range("A3:J3").Interior.ColorIndex = 0 '3
            Else
                Range("A3:J3").Interior.ColorIndex = 48 '4
            End If
        End If
    Application.OnTime vNow, "Eclairage"
         
End Sub


Et bien sûr, je vous joins mon fichier :
https://www.cjoint.com/c/KEBu5H8aE6D

Bonne soirée à vous et merci d'avoir déjà lu mon sujet :-)



Configuration: Windows / Chrome 90.0.4430.212

A voir également:

1 réponse

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour Yoyo

Cette démo trouvée sur le site de Mdf (My dear Friend -Didier Fourgeot) pourra te donner une piste

https://mon-partage.fr/f/wo0Djf8e/
1
Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   168
 
Bonjour Michel,

je n'ai pas eu le temps de te répondre avant ! Merci pour le lien, j'essaie de l'adapter à mon fichier mais sans réussite pour le moment !

Je te tiens informé, bonne soirée.
0