Faire clignoter une cellule sous Excel

Résolu
michel91 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -  
baboune19 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je voudrais faire clignoter une cellule.
Faut-il écrire une macro ou faire plus simple ?
A voir également:

3 réponses

Jean-François Pillou Messages postés 19261 Date d'inscription   Statut Webmaster Dernière intervention   63 277
 
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

4
michel91 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   46
 
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
zip61
 
Merci ! cette macro fonctionne nickel !
0