Arrêter une macro en quittant une cellule

Signaler
Messages postés
1476
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
4 juin 2021
-
Messages postés
1476
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
4 juin 2021
-
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

1 réponse

Messages postés
16477
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
10 juin 2021
3 189
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/
Messages postés
1476
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
4 juin 2021
150
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.