Alerte valeur

Bonjour

Si quelqu'un a la réponse je prends aussi ! J'ai cherché partout, ça existe dans Word mais pas dans Excel ?

Il doit y avoir moyen de faire ça avec une macro en la faisant se répéter en permanence
et afficher alternativement 2 couleurs de motifs et de police pour une même cellule sous condition

mais je ne sais pas comment on fait
- pour introduire une tempo dans une macro (entre les 2 formats de cellule)
- pour faire répéter une action à l'infini dans une macro

HELP

merci !

Bonjour. Finalement je n'avais pas cherché partout ... J'ai trouvé (je crois) dans le forum Logiciel / Pilotes : message

faire clignoter une cellule sous Excel
par michel91
mercredi 25 avril 2007 à 15:52:26

(je recopie - je testerai plus tard)

Par Jeff, le jeudi 26 avril 2007 à 13:15:35

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 clignoter
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.

Trouvé chez les collègues :

https://excel.developpez.com/faq/?page=Cellule#FaireClignoterCellule

à plus

Une dernière pour la route

http://www.excelabo.net/excel/formatsdiv.php

au fond de la page on trouve ça: encore une variante

Faire clignoter en fonction de la valeur
Comment faire clignoter une cellule si sa valeur dépasse 100 ?
Dans cet exemple, la mise en forme conditionnelle
met un nombre supérieur à 100 en rouge.
et la macro de feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
End Sub

fait passer la couleur de remplissage du blanc
au rouge 300 fois.

Sub Clignotement()
Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond
End Sub
Serge Garneau, (N°784)

Bon c'est pas tout ça, va falloir les tester ces macros ...