cellule clignotante sur Excel 2010 Résolu/Fermé

Question

Bonjour, 

Est-ce possible de faire paraître des bordures clignotantes sur une ou des cellules Excel 2010?

Si oui, quelqu'un(e) peut-il me dire comment l'on procède?

Merci

JC



Configuration: Windows XP / Firefox 3.6.13

Mike-31 · Accepted Answer

Re, 

Oui plusieurs façons pour verrouiller une shape sur les dimensions d'une ou plusieurs cellules 

Pour automatiser le clignotement au démarrage du fichier comme dans l'exemple place ces codes dans un module ,c'est mieux, de cette façon tu pourras occasionnellement créer un bouton sur ta feuille que tu associeras à un code soit pour l'arrêter et intervenir facilement sur tes cellules et relancer le code avant de supprimer ce bouton. 

Lorsque j'ai créé la Shape je l'ai Nommée Rect et j'ai fais un clic droit sur la shape/Format de la forme automatique et j'ai mis la transparence à 100%, si tu ôtes la transparence 0% tu auras un double effet clignotement et apparition du texte à voir. 

Option Explicit 

Dim Temps As Variant 

Public Sub Clign() 
    'Programmation de l'évènement toutes les secondes 
    Temps = Now + TimeValue("00:00:01") 
    Application.OnTime Temps, "Clign" 
    'Affiche l'alerte ou la fait disparaître (alternativement) 
    With ThisWorkbook 
        With .Sheets("Feuil1") 
            .Shapes("Rect").Visible = Not .Shapes("Rect").Visible 
        End With 
    End With 
End Sub 

Public Sub StopClign() 
    On Error Resume Next 
    'Stoppe la gestion de l'évènement OnTime 
    Application.OnTime Temps, "Clign", , False 
    On Error GoTo 0 
    'éventuellement garder ces trois lignes cache la shape 
    With ThisWorkbook 
        .Sheets("Feuil1").Shapes("Rect").Visible = False 
    End With 
End Sub 


Ensuite ouvrir dans le Visual Basic Editor la Thiswokbook et coller ces codes 

Option Explicit 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
StopClign 
End Sub 

Private Sub Workbook_Open() 
Clign 
End Sub 

https://www.cjoint.com/?0ckkl9ZLqw6 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

pépé35530 · Answer

Bonjour,

A priori, Excel ne permet pas de faire clignoter une cellule de manière simple. Il faut utiliser une macro.
Sous les messages, il y a un lien vers un forum traitant de ce sujet.

https://forums.commentcamarche.net/forum/affich-2916547-faire-clignoter-une-cellule-sous-excel

A+

pépé

Mike-31 · Answer

Salut,

Avec Excel tout ou presque tout est possible, soit par formule ou dans ton cas par VBA (macro)

Que veux tu faire clignoter, une ligne ou une bordure dans ce cas laquelle par rapport à la cellule, bordure haute, basse, gauche, droite ou le contour et quelle cellule est concernée

Mots croisés · Answer

Merci à vous deux

A Mike je dirai que j'aimerais que le contour d'une cellule clignote en permanence. J'ai cru voir ça sur word il y a quelques années.

Que cette cellule ne soit pas actionnée par un bouton de macro, mais qu'elle clignote lorsque j'ouvre mon document.

Si je dois entrer un code VBA, peux-tu m'écrire ce code et à quel endroit je dois l'insérer?

Merci

Mike-31 · Answer

Re,

Pas de problème après déjeuner, quelle cellule veux tu faire clignoter

Mots croisés · Answer

Alors il faut que je précise (bien sûr) qu'il s'agit du contour d'une fusion de cellules. 

Est-ce que c'est possible?

Et puis bon appétit

Mike-31 · Answer

Bien sur que c'est possible, mais quelle est l'adresse de cette fusion

exemple B2:E10 !

Mots croisés · Answer

Je ne sais comment te répondre Mike. Il s'agit que de la colonne "K" mais fusionnée sur les lignes 1 à 6 inclus.

Mike-31 · Answer

Re,

Un petit contre temps, le problème des cellules fisionnées n'est pas simple pour un encadré, par contre pour une bordure pas de problème. exemple pour faire clignoter la bordure basse de la cellule K6 même si K1 à K6 est fusionné

colle ce code dans les propriétés de la feuille (clic droit sur l'onglet/Visualiser le code)

pour tester le clignotement s'active lorsque qu'on active la feuille (ex le code est dans les propriétés de la feuille 1, clic sur l'ongler feuille 2 et revenir feuille 1

Dim ClingTime As Date

Private Sub Worksheet_Activate()
    Dim c As Range
    For Each c In Range("K6").Cells 'Zone du clignotement
        If c.Borders(xlEdgeBottom).ColorIndex = -4142 Then
            c.Borders(xlEdgeBottom).Weight = xlThick
                c.Borders(xlEdgeBottom).ColorIndex = 3
        Else
            c.Borders(xlEdgeBottom).ColorIndex = xlNone
        End If
    Next c
    ClingTime = Now() + TimeValue("00:00:01")
    Application.OnTime ClingTime, "Cling"
End Sub

Mots croisés · Answer

Lorsque je passe de la feuille 2 à le feuille principale, un message me dit qu'il est impossible d'activer la macro.

Je pensais que ça pouvait être simple, ce n'est pas le cas. On abandonne Mike, ce n'est pas non plus de grande importance, c'était juste pour mettre un plus à un doc' excel.

Merci

Mike-31 · Answer

Re,

C'est dommage de baisser les bras
regarde c'est exemple que je n'ai pu te transmettre plus tôt. à la place de travailler avec les bordures, j'ai utilisé une Shape
Il suffit de changer de feuille pour lancer le clignotement

https://www.cjoint.com/?0cjvgERQVrT

Mots croisés · Answer

Effectivement c'est pas mal.
Disons que j'ai le sentiment de te faire perdre du temps pour pas grand chose. J'ai tjrs le crainte d'excéder les gens avec mes questions qui n'en finissent pas !!!!!!!!.
Pour en revenir au clignotement, je me serais montré plus exigeant en demandant si ce n'est pas possible que cela se fasse en ouvrant Excel tt simplement, et non d'aller sur une autre feuille pour activer la macro. Sur Word (il y a longtemps) j'avais vu ce procédé il me semble.

Bonne soirée

Mike-31 · Answer

Re,  

Tu n'es pas exigeant et ta question est pertinente. mes occupations ne m'ont pas permises de suivre ta discussion comme je l'aurai voulue c'est tout.  
lancer le clignotement à l'ouverture du fichier ne pose aucun problème. j'ai choisi le déclenchement en changeant de feuille pour que tu puisses tester sans avoir à fermer et relancer ton fichier, après on fera ce que tu veux, comme faire clignoter des images, cellules etc ...  
A+  
Mike-31  

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mots croisés · Answer

Ok Mike

Ce que je veux? Faire clignoter la cellule fusionnée que j'ai mentionné plus haut, à savoir la cellule K6.

Je viens de remarquer qu'en fait tu as ajouté un cadre (probablement dessin) autour de la cellule fusionnée. Le cadre clignote et celui-ci n'agit en rien sur les cellules elles-même. Je suis allé (sans rien comprendre bien sûr) sur la macro qui commande cette action.

Le principe me convient. Ce qu'il me faudra c'est fixer ce cadre à la cellule fusionnée. En verrouillant la cellule comme pour fixer un graphique j'imagine.

Mike-31 · Answer

Re,

Ma premère proposition portait sur une bordure basse clignotante, sur des cellules fusionnées le code était assez lourd et les bordures clignotaient de façon anarchique je suis passé effectivement par la barre dessin ce qui me fait clignoter une shape à la place de 4 bordures.

Pour fixer la shape sur les cellules fusionnées de K1 à K6, agrandis la colonne K par exemple à 38, agrandis ma shape au bord de la cellule, Clic droit/Format de la forme automatique/onglet Propriétés coche déplacer et dimentionner avec les cellules.
remet ta colonne aux dimensions souhaitées, la shape devrait garder les dimensions aussi bien en hauteur qu'en largeur.

Mots croisés · Answer

Bjr Mike

Pour régler la shape aux cellules voulues, je clique sur Alt puis avec la souris j'agis sur les poignées du dessin, et la shape se cale pratiquement tte seule sur les bords des cellules voulues. Pour la fixer, je verrouille les cellules sur laquelle la shape est posée puis je protège la feuille par mot de passe. ça bouge plus.

Dis moi Mike, alors on la fait clignoter comment cette bestiole? !!!!!!!!!!

Bonne journée

Mike-31 · Answer

Re,

si tu veux les bordures clignotantes sans passer par une shape

Public Sub Clign()
    Dim c As Range
    For Each c In Range("K1:K6").Cells 'Zone du clignotement
        If c.Borders(xlEdgeRight).ColorIndex = -4142 Then
            c.Borders(xlEdgeRight).Weight = xlThick
            c.Borders(xlEdgeRight).ColorIndex = 3
            c.Borders(xlEdgeLeft).Weight = xlThick
            c.Borders(xlEdgeLeft).ColorIndex = 3
            c.Borders(xlEdgeBottom).Weight = xlThick
            c.Borders(xlEdgeBottom).ColorIndex = 3
            c.Borders(xlEdgeTop).Weight = xlThick
            c.Borders(xlEdgeTop).ColorIndex = 3
        Else
            c.Borders(xlEdgeRight).ColorIndex = xlNone
            c.Borders(xlEdgeLeft).ColorIndex = xlNone
            c.Borders(xlEdgeBottom).ColorIndex = xlNone
            c.Borders(xlEdgeTop).ColorIndex = xlNone
        End If
    Next c
    ClicTime = Now() + TimeValue("00:00:01") 'le temps du clignotement
    Application.OnTime ClicTime, "Clic_Droit"
End Sub

Mots croisés · Answer

Grand merci Mike

Je me penche là dessus pour m'instruire un peu. Mais bon j'irai pas loin dans mon instruction car j'ignore totalement le langage VBA ou autre langage de programmation. ça m'aurait tjrs plus de connaître mais n'ayant pas de connaissance en langue anglaise c'est encore plus compliqué.

Je ferai des copier coller bien entendu car j'imagine que tu as fait ça comme il se doit.

Merci

Mike-31 · Answer

Re,

Les bordures cligntantes par rapport à un cadre (shape)  est que la bordure basse augmente la hauteur de ligne ce qui fait scintiller les lignes du dessous à chaque clignotement et rend la lecture désagréable

Mike-31 · Answer

Re,

si tu ne veux pas toucher au code clic sur la Shape pour l'activer et dans la barre d'adresse tu saisis simplement Rect et clic sur touche Entrée

Cellule clignotante sur Excel 2010

22 réponses

Discussions similaires