Arrêter une macro en quittant une cellule

Fermé
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 27 mai 2021 à 22:58
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 28 mai 2021 à 19:00
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 mai 2021 à 09:05
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 samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 165
28 mai 2021 à 19:00
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