Faire clignoter une cellule ou une ligne dans exel

Bonjour,

Pour créer une cellule qui clignote : Définit un nouveau style (format/style/Flash/ajouter) Applique le à la cellule que tu choisis, place le code suivant dans un module de feuille et lance la procédure flash en tant que auto-open.
Le texte clignote entre rouge et blanc:

Dim NextTime As Date

sub Flash()
NextTime = Now +
TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With

Application.OnTime NextTime, "Flash"
end sub

sub StopIt()

Application.OnTime NextTime, "Flash", schedule:=False

ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomatic
end sub

J'ai nommé le module flashing .

--ci-joint le message d'erreur lors de l'exécution :
Sub flashing()
Dim NextTime As Date

Sub Flash()
NextTime = Now +
TimeValue ("00:00:01")
With ActiveWorkbook.Styles("Flash").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With

Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()

Application.OnTime NextTime, "Flash", schedule:=False

ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomatic
End Sub

End Sub

cordialement pierre59910

Bien reçu.
Je fais des essais et te tiens au courant.

Bonjour pierre59910,
Juste au passage, un petit exemple en 2 variantes (Feuil1 et 2) : https://www.cjoint.com/?3AdwnFrnPNw

Bonjour,
Merci pour le MP, je donnerais un oeil au code.
Cependant il est bien, lors d'un message d'erreur, de mentionné le numéro et le texte tout en mentionnant quelle ligne de code est surligné.... !
J'attends votre réponse ici.

Bonjour.
Le message d'erreur est le suivant :
erreur de compilation
End Sub attendu

la première ligne Sub Clignot est surlignée en jaune.

Bonjour,
Merci pour le MP,
En réponse à votre demande de précision :
le message est : "erreur de compilation End Sub attendu"
la première ligne sub flashing est surlignée en jaune.
bonne réception.
Toutefois le contenu de votre réponse ne concerne pas le code qui se trouve dans le MP.
Et idem pour le message (9).

Salutations.
Le Pingou

Bonjour,
Au passage, je pense que vous n'avez pas utiliser les codes proposés correctement.
Il serait bien si vous pouviez mettre le fichier sur https://www.cjoint.com/ et poster le lien.