Faire clignoter une cellule sous Excel

Résolu/Fermé
michel91 Messages postés 184 Date d'inscription dimanche 4 février 2007 Statut Membre Dernière intervention 24 février 2020 - 25 avril 2007 à 15:52
baboune19 Messages postés 1 Date d'inscription mercredi 26 juillet 2017 Statut Membre Dernière intervention 26 juillet 2017 - 26 juil. 2017 à 16:03
Bonjour,
je voudrais faire clignoter une cellule.
Faut-il écrire une macro ou faire plus simple ?

3 réponses

Jean-François Pillou Messages postés 18668 Date d'inscription lundi 15 février 1999 Statut Webmaster Dernière intervention 12 janvier 2022 63 277
26 avril 2007 à 13:15
Trouvé ici : http://exceltips.vitalnews.com/Pages/T0214_Flashing_Cells.html


Cela ne peut être fait qu'avec une macro :


1. Selection la cellule à faire clognoter
2. Choisir Style dans le menu Format.
3. Dans la boîte de dialogue de Style, entrer un nouveau nom de style, comme 'Flashing'.
4. En utilisant les contrôles de la boîte de dialogue, modifier les attributs de style souhaités.
5. Cliquer sur OK.

Ce style peut être appliqué à toutes les cellules désirées.

Ensuite créez les macros (il y en a deux) :

Dim NextTime As Date

Sub StartFlash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveWorkbook.Styles("Flashing").Font
        If .ColorIndex = xlAutomatic Then .ColorIndex = 3
        .ColorIndex = 5 - .ColorIndex
    End With
    Application.OnTime NextTime, "StartFlash"
End Sub

Sub StopFlash()
    Application.OnTime NextTime, "StartFlash", schedule:=False
    ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic
End Sub


Pour démarrer le clignotement, il suffit de lancer StartFlash, pour l'arrêter: StopFlash.
Jean-François Pillou

Fondateur de CommentCaMarche.net

5
michel91 Messages postés 184 Date d'inscription dimanche 4 février 2007 Statut Membre Dernière intervention 24 février 2020 46
27 avril 2007 à 17:40
J'ai créé les 2 macros, startflash fonctionne bien par contre
stopflash ne veut pas fonctionner, j'ai un message
"erreur d'éxécution1004
la méthode'OnTime' de l'objet-Application a échoué
As-tu déjà vu ce genre d'erreur ?
Merci
0
Merci ! cette macro fonctionne nickel !
0
J'interviens bien après la bataille mais chez moi ça ne fonctionne pas, ci joint un fichier tout simple sur lequel j'ai appliqué le style personnalisé et ça me dit que la macro n'existe pas ou que les macros sont désactivées (ce qui n'est pas la cas).

http://www.cijoint.fr/cjlink.php?file=cj201106/cijZ7pbwGA.xls

Merci de votre aide !!
0
il faut activer t'es macro sarah dans les options
0
CALIDENIS Messages postés 49 Date d'inscription mercredi 24 février 2010 Statut Membre Dernière intervention 13 janvier 2015 3
15 févr. 2013 à 11:30
bonjour,

je ne comprend pas le point 4.

Merci pour vos explications
0