Faire clignoter des cellules

[Glop]

Bonjour le forum,
J'ai fais des recherches 'sur comment faire clignoter des cellules', et je voudrais savoir , s'il faut obligatoirement mettre le code VBA dans le module de la feuille, où doit clignoter la ou les dites cellules ?
Merci

 

[JCGL]

Re : Faire clignoter des cellules

Bonsoir le Forum, Glop,


Et voila... C'est quand même plus simple avec un bout de fichier.

Au plaisir de te rencontrer de nouveaux ;-)

 

[Glop]

Re : Faire clignoter des cellules

RE,
Je dois avoir la souris modite. Quand je vais voir le code pour le module et pour la feuille j'ai une erreur qui apparaît à la fermeture. Ca fait comme tout à l'heure, j'ai rien touché et j'ai une erreur d'exécution 1004.Je ne comprends pas .C'est une mauvaise manip de ma part?. Ça doit avoir une explication , Merci beaucoup

 

[JCGL]

Re : Faire clignoter des cellules

Re Glop,

Ce n'est pas anormal : le timer est réglé sur 1 seconde et si tu souhaites regarder le code tu risque de chambouler un peu la procédure.

Au message d'erreur Click sur Débogage

Pour voir le code regarde le fichier que je t'ai posté hier sur mon FTP, cela sera plus simple et il est strictement identique.

Autrement pour tes paramétrages : tout se fait sur ta feuille en MeFC (par le pinceau de Mise en Forme par exemple)

A+

Edition : Tu ne pas dit si cela fonctionne ! (avant de chercher à voir le code...)

 

[Glop]

Re : Faire clignoter des cellules

Re bonsoir,
Ça fonctionne très bien. C'est bien ce que je cherchais. Maintenant je vais essayer de le mettre en application, et je vous tiens au courant.
Merci beaucoup

 

[Glop]

Re : Faire clignoter des cellules

Bonjour,
J'ai mis quelques soucis que j'ai eu, dans le deuxième onglet du fichier.
Est ce comme cela que je dois appliquer les codes ?
1) Faire la MeFC.
2) Taper le code dans 'ThisWorkbook' de la feuille concernée.
3) Taper le code dans le module inserer.
Si c'est ça , je ni arrive pas .
Bonne soirée à tous

 

[Glop]

Re : Faire clignoter des cellules

Bonjour,
J'ai oublié mon fichier hier soir. J'espère qu'il va suivre.

 

[JCGL]

Re : Faire clignoter des cellules

Bonsoir le Forum, Glop,

Ton fichier réparé et quelques "recommandations"

A+

 

[Glop]

Re : Faire clignoter des cellules

Bonsoir,
Et tout d'abord merci pour le temps et la patience que vous avez eu .
Je crois que je vais arrêter là le massacre car , J'ai des erreurs de compilation 1004, des erreurs 13 . Enfin je ne comprends pas . Quand j'ouvre le fichier tout fonctionne quand je demande un code article , ça fonctionne. Mais lorsque j'ouvre VBA, pour visionner , c'est là que ça ne va plus . J'ai la pagaille dans VBA sur mon PC . Je pense que je vais réinstaller Excel, J'espère que ça ira mieux après.
Je remercie bien JCGl ,ainsi que tout le forum.

 

[JCGL]

Re : Faire clignoter des cellules

Re Glop,

Je te "re rappelle" que si tu ouvre VBA en même temps que le timer actif, il peut y avoir quelques soucis (pas obligatoirement mais cela peut arriver).

Si vraiment tu galères : envoie moi ton fichier je te le ferai...

S'il est trop lourd : adresse courriel perso dans le profil. Je le redéposerai sur mon FTP pour qu'il soit accessible à tous

Entraine toi sur un autre fichier

Au plaisir de t'être encore utile...

 

[Glop]

Re : Faire clignoter des cellules

RE Bonsoir,
Demain je fais une autre tentative pas à pas .
Où puis-je faire un coller copier des codes, car tous les exemples que je visionne ,mettent une erreur? Et certaines lignes sont en jaune ou de la surbrillance sur des virgules . Enfin je vais essayer.
Merci

 

[JCGL]

Re : Faire clignoter des cellules

Bonsoir le Forum,

Mon cher Glop,

Pour que tu n'ais pas à ouvrir VB pour regarder le code

Voici mon dernier message explicatif concernant le clignotement :


A placer dans ThisWorkBook

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   ArrêtEclairage
End Sub

Private Sub Workbook_Open()
   Eclairage
End Sub

A placer dans un Module

Option Explicit 'Ti www.veriti.net
Dim vNow As Variant

Public Sub Eclairage()
vNow = Now + TimeValue("00:00:01")
Application.OnTime vNow, "Eclairage"
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1 - [VarEclairage]
End Sub

Public Sub ArrêtEclairage()
Application.OnTime EarliestTime:=vNow, _
    Procedure:="Eclairage", Schedule:=False
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1
End Sub

Par Nom/Définir

Nom : VarEclairage
Valeur : =1

http://imageshack.us

Mise en Forme Conditionnelle

=si(taFormule;VarEclairage =1)

http://imageshack.us

Je reste, néanmoins, disposé à rectifier un de tes fichiers.

Bonne programmation

 

[Dan]

Re : Faire clignoter des cellules

Bonsoir,

JCGL si mes souvenirs sont bons, il me semble que cette macro vient de notre ami JeanMarie.
Je pense que citer son nom serait bien. Rendons donc à César ce qui est à César.

En tapant le pseudo JeanMarie dans la zone Recherche, on peut trouver les fils à ce sujet.

Bonne soirée

 

[Glop]

Re : Faire clignoter des cellules

Re bonsoir,
Merci à JCLD, Jean Marie, Dan et au forum.
Demain je retrousse les manches et je vais mettre en application . Je vous tiens au courant. Bonne soirée à tous .Merci

 

[Glop]

Re : Faire clignoter des cellules

Bonjour tout le monde,
Ca y est , j'ai réussi. Tout fonctionne à merveille, c'est génial, j'ai ma cerise sur le gateau. Je voudrais remercier JCLD en particulier pour ça patience et son temps. Merci à Jean Marie, Dan et les autres . Merci au forum en général . J'en fais pas trop ? Non, je suis content d'être arrivé à mes fins .Merci pour ce bon coup de mains.

 

[JCGL]

Re : Faire clignoter des cellules

Bonsoir à tous,
Salut Dan,

Effectivement le code est bien de Jean-Marie : qu'il accepte toutes mes excuses pour la spoliation de paternité. Encore Merci à lui.