Faire clignoter des cellules

[Caninge]

Bonsoir.

J'ai bien regardé dans les exemples, mais je n'ai pas pu trouver chaussure à mon pied.

La question est : Comment faire clignoter des cellules vides.

Attention vous avez 10 secondes pour répondre ( je blague...........)

Je pense que les idées lumineuses vont jaillirent.

Ci joint mini-fichier.

Merci et à plus.

 

[JeanMarie]

Re : Faire clignoter des cellules

Bonsoir Caninge

Tu trouveras ton fichier modifié, j'ai rajouté ce qu'il fallait dans le VBA et dans la mise en forme.
J'ai aussi rajouté la variable "varEclairage" modifié en VBA, qu'il faut absolument créer avant de lancer les macros. Tu aurais peu trouver ce qu'il fallait faire dans différent fil de ce forum

Je remets ici les explications d'un ancien fil.

Ce fichier utilise :
- 2 procédures dans un module,
- 1 procédure lancée à l'ouverture du fichier, qui est placée dans le thisworkbook,
- 1 nom défini,
- 1 mise en forme conditionnelle.

Ouvre le en activant les macros, regarde si cela te convient, ferme le fichier.

Pour l'adapter à ton fichier :
1) Ouvre le sans activer les macros.
2) Dans ton fichier, Clique sur le menu Insertion/Nom/définir...
3) dans la boîte de dialogue, tu tapes dans le champ du haut VarEclairage,
dans le champ du bas, tape la valeur 0, valide
4) Sélectionne les cellules qui devront clignoter,
5) clique sur le menu Format/Mise en forme conditionnelle...
6) dans la boîte de dialgoue, change "la valeur est " par la "formule est,
dans le champ saisissable il faut inscrire VarEclairage=1, change le format, valide 2 fois.

Pour l'instant, les valeurs ont changées de format, mais elles ne clignotent pas

Il faut rajouter le code
1) Appuie sur la touche Alt+F11
2) Dans la fenêtre "Projets"
3) Clique droit sur le module contenu dans le fichier "ECLAIRAGE.XLS", puis sur "code" dans le menu contextuel, ce qui permet d'ouvrir la fenêtre du module
4) Sélection les lignes des deux Sub, et fait un copier
5) Clique sur ton Fichier dans la fenêtre "Projet"
6) Menu Insertion/Module
7) Dans la nouvelle fenêtre, colle le texte

On passe au Thisworkbook
8) Clique droit sur le Thisworkbook du fichier "ECLAIRAGE.XLS" puis sur "code", tu connaîs la manip.
9) Tu copies
10) Clique sur le Thisworkbook de ton fichier
11) fait un coller dans la nouvelle fenêtre
12) Clique sur le menu Fichier/Retourner à Excel
13) fait une sauvegarde
14) ferme et rouvre le fichier

L'avantage avec ce code, une fois installé dans le fichier, tu n'y touches plus (sauf pour changer la temporisation), c'est Excel par l'intermédiaire de la mise en forme conditionnelle qui fait tout, toi tu choisis les cellules, le format de la MFC et c'est tout.

@+Jean-Marie

 

[JeanMarie]

Re : Faire clignoter des cellules

RE...

Mon post ne serait pas complet si je n'indiquais pas cette page tu y trouveras d'autres infos et des exemples plus détaillés.

@+Jean-Marie

 

[Caninge]

Re : Faire clignoter des cellules

Bonjour Jean-Marie,

Ce sont vraiment les explications révées.
Impossible de se tromper pour recopier tout cela.

Une petit chose cependant : Est-ce possible que les clignotements durent seulement 5 secondes.

Merci


A plus

 

[JeanMarie]

Re : Faire clignoter des cellules

Re...

Comment veux-tu activer le clignotement :

• un bouton placer sur la feuille
• à chaque changement de valeur dans les cellules
• à la réactivation de la feuille
• à l'ouverture du classeur

@+Jean-Marie

 

[Caninge]

Re : Faire clignoter des cellules

Re,

Je voudrais que le clignotement s'active quand :

Le classeur s'ouvre.

Quand je reviens sur cette feuille.

Sans bouton et pendant 5 secondes.

Je pense que cela devrait aller.

A plus

Merci

 

[JeanMarie]

Re : Faire clignoter des cellules

Re...

Voici le fichier modifié. J'ai rajouté une fonction d'activation pour définir les variables, pour limiter la durée à 5 secondes.

@+Jean-Marie

 

[Caninge]

Re : Faire clignoter des cellules

Re,

Je viens de regarder, c'est bon.

Juste une petite chose si je peux me permettre, est-ce possible que quand le clignotement s'arrête les cellules s'éteignent.

Comme si on appuyait sur l'interrupteur et la lumière s'éteint.

Tu comprends

A +

 

[JeanMarie]

Re : Faire clignoter des cellules

Re...

Je ne sais pas si cela va répondre à ta question.

Remplace le code du module par celui-ci

Dim CycleTime As Date

Public Sub Activation()
CycleTime = Now + TimeValue("00:00:01")
FinTime = Now + TimeValue("00:00:05")
End Sub

Public Sub Eclairage()
'Test pour savoir si le clignotement doit continuer
If CycleTime <= FinTime Then
   'oui on continue le clignotement
   CycleTime = Now + TimeValue("00:00:01")
   Application.OnTime CycleTime, "Eclairage"
   'Modification de la variable dans le classeur
   ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1 - [VarEclairage]
Else
   ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=0
End If
End Sub

Public Sub ArrêtEclairage()
'Test si le clignotement est arrivé à expiration.
If Now > FinTime Then Exit Sub
Application.OnTime EarliestTime:=CycleTime, Procedure:="Eclairage", Schedule:=False
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=0
End Sub

Dis moi si cela te va

@+Jean-Marie

 

[Caninge]

Re : Faire clignoter des cellules

Bonjour Jean-Marie.

J'ai essayé et cela ne marche pas.

Mais on peut laisser comme ça.

C'est pas important.

En fait une fois sur deux les cellules s'éteignent .

C'est bon.

Merci Jean-Marie et bonne journée.

 

[Alexandre11110]

Re : Faire clignoter des cellules

Bonsoir Caninge

Tu trouveras ton fichier modifié, j'ai rajouté ce qu'il fallait dans le VBA et dans la mise en forme.
J'ai aussi rajouté la variable "varEclairage" modifié en VBA, qu'il faut absolument créer avant de lancer les macros. Tu aurais peu trouver ce qu'il fallait faire dans différent fil de ce forum

Je remets ici les explications d'un ancien fil.

Ce fichier utilise :
- 2 procédures dans un module,
- 1 procédure lancée à l'ouverture du fichier, qui est placée dans le thisworkbook,
- 1 nom défini,
- 1 mise en forme conditionnelle.

Ouvre le en activant les macros, regarde si cela te convient, ferme le fichier.

Pour l'adapter à ton fichier :
1) Ouvre le sans activer les macros.
2) Dans ton fichier, Clique sur le menu Insertion/Nom/définir...
3) dans la boîte de dialogue, tu tapes dans le champ du haut VarEclairage,
dans le champ du bas, tape la valeur 0, valide
4) Sélectionne les cellules qui devront clignoter,
5) clique sur le menu Format/Mise en forme conditionnelle...
6) dans la boîte de dialgoue, change "la valeur est " par la "formule est,
dans le champ saisissable il faut inscrire VarEclairage=1, change le format, valide 2 fois.

Pour l'instant, les valeurs ont changées de format, mais elles ne clignotent pas

Il faut rajouter le code
1) Appuie sur la touche Alt+F11
2) Dans la fenêtre "Projets"
3) Clique droit sur le module contenu dans le fichier "ECLAIRAGE.XLS", puis sur "code" dans le menu contextuel, ce qui permet d'ouvrir la fenêtre du module
4) Sélection les lignes des deux Sub, et fait un copier
5) Clique sur ton Fichier dans la fenêtre "Projet"
6) Menu Insertion/Module
7) Dans la nouvelle fenêtre, colle le texte

On passe au Thisworkbook
8) Clique droit sur le Thisworkbook du fichier "ECLAIRAGE.XLS" puis sur "code", tu connaîs la manip.
9) Tu copies
10) Clique sur le Thisworkbook de ton fichier
11) fait un coller dans la nouvelle fenêtre
12) Clique sur le menu Fichier/Retourner à Excel
13) fait une sauvegarde
14) ferme et rouvre le fichier

L'avantage avec ce code, une fois installé dans le fichier, tu n'y touches plus (sauf pour changer la temporisation), c'est Excel par l'intermédiaire de la mise en forme conditionnelle qui fait tout, toi tu choisis les cellules, le format de la MFC et c'est tout.

@+Jean-Marie

Bonjour jean-Marie

Je suis debutant en excel juste j'ai besoin que tu m'explique pourquoi tu as decalaré la variable VarEclairage .

Et dans ta Procédure :
Thisworkbook.Names.Add Name:="VarEclairage", RefersToR1C1=1-[VarEclairage]

Et dans MFC tu as ajjouter le variable VarEclairage .

Merci d'avance

 

[job75]

Bonjour Alexandre11110, bienvenue sur XLD,

Le dernier message de JeanMarie sur ce forum remonte à novembre 2011, je ne pense pas qu'il vous répondra.

""VarEclairage" n'est pas une variable VBA, c'est un nom défini qui mémorise les valeurs 0 ou 1.

A+

 

[Alexandre11110]

Bonjour Alexandre11110, bienvenue sur XLD,

Le dernier message de JeanMarie sur ce forum remonte à novembre 2011, je ne pense pas qu'il vous répondra.

""VarEclairage" n'est pas une variable VBA, c'est un nom défini qui mémorise les valeurs 0 ou 1.

A+

Bonsoir
Merci , oui tu as raison mais je n'ai pas bien compris lorsque il as écrit :

Activeworkbook.Names.Add Name:='VarEclairage", RefersToR1C1=1-[VarEclairage]

Cela cvd quoi, une petite explication svp.

 

[job75]

Bah cela veut dire que si le nom défini 'VarEclairage" vaut :

- 0 => on lui donne la valeur 1

- 1 => on lui donne la valeur 0.