Cellules clignotantes multiples et discontinues

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Sabinoux
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Sabinoux

Guest
Bonjour à tous

Pour avoir longuement lu les pages du forum, je sais que les posts sur les cellules clignotantes sont nombreux.
Toutefois je ne parviens pas à adapter les codes à mon fichier, les cellules que je souhaite voir clignoter ne correspondent pas à une zone étendue mais à de nombreuses cellules multiples et surtout discontinues.

Je suis parvenue à faire clignoter 2 cellules sur l'ensemble grace au code VBA mis en place par l'un d'entre vous (désolée, j'ai oublié son nom mais le remercie beaucoup pour sa contribution)

Quelqu'un aurait-il une solution ?
 

Pièces jointes

Trier par date Trier par votes
Re : Cellules clignotantes multiples et discontinues

Bonsoir Moustic54

Oui c'est exactement ce que je voulais.

Connaissez-vous les codes couleur suivants :
- fond bleu
- fond orange

J'ai essayé de le faire pour les autres cellules mais le résultat ne convient pas.
Les cellules jaunes clignotent beaucoup moins
et à peine si les cellules rouges (ne connaissant pas le code pour orange) bougent.

Pourriez-vous, s'il vous plait, regarder le code vba que j'ai mis (je suis vraiment novice en vba) et me dire d'où vient mon erreur.

Vous remerciant d'avance
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Cellules clignotantes multiples et discontinues

Bonsoir,
Pourquoi protéger/déprotéger ?
Adapte le code comme ceci en associant un bouton à chaque macro
Code: 
Option Explicit
'---------------------------------------------------------------------------------------
' Auteur    : Didier FOURGEOT (myDearFriend!)
'             www.mdf-xlpages.com
' Date      : 18/06/2006
' Sujet     : Cellules et Alertes clignotantes
'---------------------------------------------------------------------------------------
Dim Temps As Variant

Public Sub Clign()
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Clign"
With Sheets("Feuil1")
    With .Range("E27:E28,H13,H15,I11,I27,H72")
        .Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, 0, 3)
    End With
    With .Range("D1,H2,D9,E11:E12,E14,E16,D25,F32")
        .Interior.ColorIndex = IIf(.Interior.ColorIndex = 45, 0, 45)
    End With
    With .Range("D36,D43,D50")
        .Interior.ColorIndex = IIf(.Interior.ColorIndex = 33, 0, 33)
    End With
End With
End Sub

Public Sub StopClign()
    On Error Resume Next
    Application.OnTime Temps, "Clign", , False
With Sheets("Feuil1")
.Range("E27,E28,H13,H15,I11,I27,H72").Interior.ColorIndex = xlNone
.Range("D1,H2,D9,E11,E12,E14,E16,D25,F32").Interior.ColorIndex = xlNone
.Range("D36,D43,D50").Interior.ColorIndex = xlNone
End With
End Sub
Pour connaître l'index des couleurs, utilise l'enregistreur de macro !
A+
kjin
 
Vote positif 0 Vote négatif
Re : Cellules clignotantes multiples et discontinues

Bonsoir kjin

Merci beaucoup pour ton aide.

Un gros soucis.

Je viens d'essayer le code et un message d'erreur apparait des la ligne Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, 0, 3) 😱 😱
m'indiquant "Impossible de définir la propriété ColorIndex de la classe Interior" et je ne sais vraiment pas pourquoi la phrase étant identique. 😕

La solution protection/déprotection est due au fait que la feuille originale est protegée de façon à se déplacer uniquement sur les cellules à renseigner.

Merci beaucoup pour ton aide.
 
Vote positif 0 Vote négatif
Re : Cellules clignotantes multiples et discontinues

Bonjour moustic54, kjin

Merci pour votre aide à tous les deux.

😕😕😕😕

J'ai regardé la solution de JCGL son code comprend bien la protection / deprotection. Il utilise également la variable TimeValue

J'ai donc essayé d'adapter la solution de Kjin et celle de JCGL mais sans succés.
J'ignore comment JCGL a pu concilier à la fois la protection et les cellules qui clignotent.
3 couleurs qui clignotent sur clic de bouton alors que le fichier est protégé est vraiment difficile.

J'ai des messages d'erreur à nouveau 😱😱😱
C'est une horreur !!

Si vous pouviez me dire pourquoi ma macro ne fonctionne pas ........
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Cellules clignotantes multiples et discontinues

Bonjour kjin,

Trop fort !!! 🙂

Je ne voudrais pas abuser mais comment modifier le code pour obtenir le clignotement d'une couleur par bouton.

La couleur correspond à des actions différentes aussi il est indispensable de les visualiser les unes apres les autres.
A moins que cela ne soit pas possible de le réaliser sous cette forme 😱

Quoiqu'il en soit, un grand MERCI Kjin pour ton aide.
 
Vote positif 0 Vote négatif
Re : Cellules clignotantes multiples et discontinues

Re,
Je crains de ne pas comprendre ce que tu veux précisemment
Aurais tu un bouton par couleurs ?
Ce bouton activerait une couleur en stoppant les autres ?

En outre, j'ai modifié le précédent code (je supprime l'autre)
Code: 
Dim Temps As Variant

Sub Clign()
ActiveSheet.Unprotect
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Clign"
With ActiveSheet
    With .Range("E27:E28,H13,H15,I11,I27,H72")
        .Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, 0, 3)
    End With
    With .Range("D1,H2,D9,E11:E12,E14,E16,D25,F32")
        .Interior.ColorIndex = IIf(.Interior.ColorIndex = 45, 0, 45)
    End With
    With .Range("D36,D43,D50")
        .Interior.ColorIndex = IIf(.Interior.ColorIndex = 33, 0, 33)
    End With
.Protect
End With

End Sub

Sub StopClign()
    On Error Resume Next
    Application.OnTime Temps, "Clign", , False
With ActiveSheet
.Range("E27,E28,H13,H15,I11,I27,H72").Interior.ColorIndex = xlNone
.Range("D1,H2,D9,E11,E12,E14,E16,D25,F32").Interior.ColorIndex = xlNone
.Range("D36,D43,D50").Interior.ColorIndex = xlNone
.Protect
End With

End Sub
A+
kjin
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Cellules clignotantes multiples et discontinues

Bonsoir kjin,

Ce que j'aurai voulu c'est :
- un bouton pour faire clignoter orange
- un bouton pour faire clignoter rouge
- un bouton pour faire clignoter bleu

C'est pour çà que j'avais tenté de modifier le code en faisant un premier Sub Clign() pour la 1ere couleur puis Sub Clign2() pour la seconde.... mais résultat nul.
D'où ma question du comment modifier le code que tu m'as donné.
Merci beaucoup.
 
Vote positif 0 Vote négatif
Re : Cellules clignotantes multiples et discontinues

Bonsoir Kjin, Moustic54

Je reviens sur le post.
J'ai essayé de modifier les instructions de macro. (fichier joint)

Gros pb : cellules bleues ne clignotent pas.
Celles oranges clignotent peu au regard de celles rouges.

Choisir l'option "clignotement de cellules" revient-il à absolument à avoir des cellules qui clignotent toutes en même temps ? 😕

Dois-je ABSOLUMENT choisir pour certaines d'entre elles un autre type d'animation pour que cela fonctionne ?

Merci d'avance
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

E
  • Résolu(e)
XL 2016 Verrouiller page avec accès "filtre" + "mise en page personnalisée"
Réponses
9
Affichages
471
Phil69970
Phil69970
P
  • Question Question
cellules clignotantes et classeurs joints...
Réponses
12
Affichages
1 K
paul87
P
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
Retour