Dans ce cas en mettant ton fichier anonymiser et en indiquant les endroits ou le clignotement doit se produire peut-être il y aura possibilité de t'aider
C'est le même code que riton00 j'ai juste changé B3 en C3
VB:
Dim vNow As Variant
Public Sub Eclairage()
vNow = Now + TimeValue("00:00:02")
If Range("c3") <> "" Then Range("c3").Font.ColorIndex = IIf(Range("c3").Font.ColorIndex = 1, 24, 1)
Application.OnTime vNow, "Eclairage"
End Sub
Public Sub Eclairage()
Dim vNow As Variant
vNow = Now + TimeValue("00:00:02")
If Range("c3") <> "" Then Range("c3").Font.ColorIndex = IIf(Range("c3").Font.ColorIndex = 1, 3, 1) 'En rouge
Application.OnTime vNow, "Eclairage"
End Sub
Merci
Mais quand je le mets dans mon fichier dont une feuille en exemple, il me dit que les macros sont désactivées or non car les autres fonctionnent
La cellule qui devrait clignoter est la C25 dans cette feuille en pièce jointe
Bonjour
Je répugne d'une manière générale à contribuer à la mise en oeuvre de ce genre d'arbre de Noël sur un tableur (ce qu'est Excel)
Je vais donc ici me contenter de t'indiquer les grandes lignes de ce mécanisme et te laisser le construire :
- une variable publique de type range dédiée à chacune des feuilles concernées. Y mettre l'adresse de la plage (continue ou discontinue) des cellules concernées de cette feuille
- application en boucle de la procédure de clignotement (appelée par Ontime) à chacune de ces plages.
A toi de jouer avec cela, si tu tiens tant à cette "chose". C'est facile mais ce sera sans moi.
Dans ce cas en mettant ton fichier anonymiser et en indiquant les endroits ou le clignotement doit se produire peut-être il y aura possibilité de t'aider