Faire clignoter une cellule colorée

bonjour,

Je suis débutant sur excel et je ne connais rien à la programmation d'une macro

Pouvez vous me dire comment faire pour faire clignoter une cellule colorée

merci de m'indiquer toutes les manipulations dans le détail

excel fonctionne t-il quand la cellule clignote ?

merci d'avance

Bonjsoir

Une solution proposée par Nad-Dan sur ce Forum

https://www.excel-pratique.com/forum/viewtopic.php?t=4484&highlight=clignote

Cordialement

Bonjour Amadéus, lefranc et Dan,

Excellente question de lefranc

Malheureusement pour lefranc je ne lui apporte pas de solution,.

J'ai essayé d'adapter ce module(qui me semble très intéressant à mon projet qui fonctionne que lorsque la solutiont proposée par DAN est ouvert.

Amadeus ou Dan pourriez-vous me dire pourquoi? SVP

Merci d'avance

Cordialement

Noël

Bonjour Noel

Ce n'était pas la peine de remettre le lien vers l'exemple, mais plutôt envoie ton fichier que nous puissions regarder où est le problème.

A te relire

Nad

Bonjour, salut à toi, Nad

Je mise sur l'oubli de la formule nommée.

Cordialement

Bonjour,Nad et Amadeus,

Il y a quelque chose qui a du m'échapper!

Quand Amadeus dit "qu'il mise sur l'oublie de la formule nommée.Je ne pense pas mais enfin éclaire moi mes lanternes .

En tout état de cause je joins le fichier propre sans formule nommée et sans macro. Je dirai même qu'il est vierge.

https://www.excel-pratique.com/~files/doc/Clign.xls

S'il vous plait je en ceux pas recopier bêtement les formules ou les Macros sans comprendre c'est comme cela je pourrai avancer

Merci beaucoup

Cordialement

Noël

Re

J'ai placé les macros dans ThisWorbook ainsi que dans Module1.

La formule de la MFC était juste.

J'ai enregistré le fichier, je l'ai fermé et réouvert.

Un coup ça marche, un coup ça ne marche pas, un coup ça marche, un coup ça ne marche pas. C'est un gag des frères Jacques pour ceux qui connaissent

Fichier

Amicalement

Nad

PS : pour ton autre question que tu as mise dans le fichier (tabulation), il faut une macro que je ne sais pas faire

Merci Nad,

C'est bon. Pour la tabulation j'ai joint un fichier qui marche en ligne mais pas comme j'ai demandé sur les colonnes.

Je vais réitérer ma demande sur le forum une sensible me répondra certainement

Je ne sais le GAG de frères Jacques explique moi je saurai une fois ça marche t une fois ça mrche pas car le mien marche à tous les coups

Merci Nad prochainement

Cordialement

Noël

Bonjour Nad, et tout le forum,

Le fichier que tu m'as expédié marche mais quand je bascule la feuille dans mon projet en veillant bien que le formule nommée soit installée ainsi que les macros.

Ca marche tant que ton fichier reste ouvert au cas contraire niet il ne marche pas. Par contre le tien marche malgrè que le mien soit fermé.

Il y a quelque chose que je dois passer à côté.

Mais c'est pas grave? Cette solution me permettrai d'attirer l'attention des utilisateurs sur le fait qu'il ne faut rien réinscrire dans la cellule concernée.

Si jamais une solution te viendrai à l'esprit EXCELLENCEEEEEEE, fais moi savoir.

Cordialement Noël

Bonjour Noel

Que veux-tu dire par là ? Ou plutôt, explique-moi exactement ce que tu fais.

cfn3cfn a écrit :

mais quand je bascule la feuille dans mon projet

Pour les Frères Jacques, c'est un sketch :

Deux personnes pour changer une ampoule de clignotant d'une voiture.

Le 1er est dans la voiture et enclenche le clignotant.

Il demande au second, qui est à l'arrière de la voiture : "dis-moi si ça marche "

Le second de répondre : "oui ... non ... oui ... non ..."

Amicalement

Nad

Re,

Je connaissais pas celle là.

Je te disais quand je bascule la feuille dans mon projet c'est seulement que je la copie dans mon projet en transportant la feuille par la souris d'un projet à l'autre.

merci

Noël

Ferme mon fichier et ne garde que le tien.

Dans VBA de ton fichier, ajoute un module.

Fais un copié-collé du code ci-dessous :

Option Explicit
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

Maintenant, dans ThisWorkbook, fait un copié-collé du code ci-dessous

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

Vérifie que tu aies une valeur en D7 puis tu mets cette formule pour la MFC et tu choisis ta couleur de fond :

=ET(VarEclairage;D7>0)

Maintenant, enregistre ton fichier

Ferme-le

Réouvre-le

Dis-moi si tu as toujours le problème

Nad

Re Nad

C'est extra. Je l'ai copié comme tu me l'as dit ça marche impeccable comme dit toi même une fois je te vois une fois je te vois pas.

Mais tout ça je n'ai rien compris si ce n'est dans la MEFC.

Pourquoi il fallait dans le VBA et ajouter un module supplémentaire?

2ème chose est-ce normal que la souris cligne aussi de l'oeil dans tout le projet?

En tout cas c'est très bien 20/20 Nad

Cordialement

Tu ne seras pas déçu lors de ton déplacement sur la Réunion.

Je rebondis sur ce sujet parce que je rencontre un problème : j'ai adapté le code à mon cas, et tout va bien (j'ai créé une MFC qui déclenche le clignotement dans une cellule si la cellule voisine est égale à "x").

Là où ça se détraque, c'est que, si j'affiche un autre classeur, quand je reviens au classeur où ma cellule clignote, j'ai un bug et le clignotement s'arrête. Je dois enregistrer, fermer, puis rouvrir le fichier pour que ça fonctionne à nouveau.

Quelqu'un saurait-il m'aider ?

Merci !

Bonjour

Pas ce soucis

A tout hasard

Remplaces la procédure Workbook_Open() par Workbook_Activate()

Remplaces la procédure Workbook_BeforeClose(Cancel As Boolean) par Workbook_Deactivate()

Bingo !!!

T'es le roi du VBA !

Merci beaucoup !

(PS : y a-t-il un moyen de fixer un temps de clignotement plus court qu'une seconde ?

J'ai essayé des valeurs du genre "00:00:00.5" ou "00:00:00,5" mais ça marche pas...)

Bonjour

Pas sur de ma réponse

Faudrait voir du côté des API

Quelqu'un a peut-être ça dans ses valises

...API ?

Kezaco ?

Bonjour

Tout ce que j'en sais c'est un peu "l'ancêtre" du VBA

Tu peux faire beaucoup plus d'action avec les API mais il faut travailler au "coeur" de la machine

On s'en sert le plus fréquemment lorsque l'on veut afficher un userform sans la croix de fermeture, ou sans la bande bleue

Notre ami te renseignera plus facilement

Bonne journée

Rien trouvé en 1ère approche. Comme ça m'a l'air bien au-delà de mes capacités, je crois que je vais m'en tenir à un clignotement à chaque seconde, et ça ira bien.

En tous cas merci pour tes réponses et ta disponibilité.