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 -
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 ?
je voudrais faire clignoter une cellule.
Faut-il écrire une macro ou faire plus simple ?
A voir également:
- Excel : faire clignoter une cellule sans macro
- Faire clignoter une cellule excel sans vba - Meilleures réponses
- Faire clignoter une cellule excel - Meilleures réponses
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Déplacer une colonne excel - Guide
3 réponses
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
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