XL 2010 Message clignotant

[FCMLE44]

Toujours dans le cadre de mon projet de formulaire, est il possible de faire clignoter le message en cellule C3 via une vba ?

Merci beaucoup de votre aide

 

[riton00]

Bonsoir

Peut-être comme ça?

 

[FCMLE44]

Bonsoir

Merci

C'est le message "cliquez........" en rouge qui doit clignoter

 

[FCMLE44]

Et si possible je souhaiterais qu'il clignote en rouge

 

[Phil69970]

Bonjour FCMLE44, riton00

C'est le même code que riton00 j'ai juste changé B3 en C3

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

Cordialement

 

[FCMLE44]

Merci
Comment faire pour le mettre sur plusieurs cellules dans plusieurs feuilles distinctes ?

 

[Phil69970]

Bonjour FCMLE44, riton00

Et si possible je souhaiterais qu'il clignote en rouge

If Range("c3") <> "" Then Range("c3").Font.ColorIndex = IIf(Range("c3").Font.ColorIndex = 1, 3, 1)
'En rouge

Comment faire pour le mettre sur plusieurs cellules dans plusieurs feuilles distinctes ?

Recopie le code avec les bonnes adresses de cellule

Cordialement

 

[FCMLE44]

Bonjour
Merci

Dim vnow as variant se met dans l'autre macro de la même feuille voir pièce jointe

Comment je fais ?

 

[riton00]

Bonjour, au forum

Autre style voir aussi sur feuil2

Slts

 

[Phil69970]

Bonjour FCMLE44, riton00

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

Cordialement

 

[FCMLE44]

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

 

[Phil69970]

Bonjour FCMLE44, riton00

Il faut mettre le code dans un module et faire l'appel de la procedure
call Eclairage ou juste Eclairage

Cordialement

 

[FCMLE44]

Oui mais j'aurais plusieurs feuilles et elle devra clignoter à deux endroits sur chaque feuille

QUid dans ce cas ?

 

[jmfmarques]

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.

 

[riton00]

Re FCMLE44, Phil69970

Oui mais j'aurais plusieurs feuilles et elle devra clignoter à deux endroits sur chaque feuille
QUid dans ce cas ?

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

Slts