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 -
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 :
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 :
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 :-)
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:
- Arrêter une macro en quittant une cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Aller à la ligne dans une cellule excel - Guide
- Bloquer une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
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/
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/
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.