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
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
A voir également:
- Excel : faire clignoter une cellule sans macro
- Faire clignoter une cellule excel - Meilleures réponses
- Faire clignoter une cellule excel sans vba - Meilleures réponses
- Aller à la ligne dans une cellule excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Verrouiller cellule excel - Guide
3 réponses
Jean-François Pillou
Messages postés
18707
Date d'inscription
lundi 15 février 1999
Statut
Webmaster
Dernière intervention
16 février 2023
63 273
26 avril 2007 à 13:15
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) :
Pour démarrer le clignotement, il suffit de lancer StartFlash, pour l'arrêter: StopFlash.
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
27 avril 2007 à 17:40
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
23 mars 2011 à 15:48