cellule clignotante

[david]

Bonjour le forum,

J'ai "scruté" ce qu'on pouvait trouver sur le forum concernant des cellules clignotantes mais je n'ai rien trouvé qui puisse me donner satisfaction.

Voià mon problème :

J'ai dans une feuille excel(feuil1) des données permettant d'accéder aux diverses feuilles du fichier.
Dans la cellule B5, j'ai un lien hypertexte qui permet aux utilisateurs de cliquer dessus pour ouvrir internet(par exemple).
Je voudrais faire clignoter cette cellule pour avertir les utilisateurs.
Je veux rester mettre du fichier.Pas de sablier qui bloquerait la navigation dans le fichier, juste une info clignotante permanentes sur l'exitence du renvoi.
Je vous remercie.

 

[myDearFriend]

Bonsoir David,


Ci-joint peut-être un exemple répondant à ta demande....

Dim Tempo As Date

Public Sub Clignotement()
Static C As Boolean
   C = Not C
   Tempo = Now + TimeValue("00:00:01")
   Range("B2").Interior.ColorIndex = IIf(C, xlNone, 46)
   Application.OnTime Tempo, "Clignotement"
End Sub

Public Sub StopClign()
   Application.OnTime Tempo, "Clignotement", , False
   Range("B2").Interior.ColorIndex = xlNone
End Sub


Cordialement.

Didier_mDF

 

[david]

Bonsoir Didier,

Cela me va à ravir, mais j'aurais encore besoin d'un indice supplémentaire.
Je voudrais que la cellule ne clignote que sur une feuille et pas toute comme c'est le cas dans cette macro.
Help
PS : j'ai parametré dans mon essai, la macro d'ouverture de classeur sur la feuil1 avec la macro clignotement sur la cellule D3(cellule dans lequel se trouve le lien) mais toutes les cellules D3 de mon fichier clignote
AIE!AIE!AIE
Merci pour ton ou votre aide pour celui ou ceux qui lirait ceci
A+

 

[myDearFriend]

Re- David,

Ci-joint une autre version pour servir de base à ton projet.

Voir le code rajouté dans le module de la feuille 1 ainsi que dans l'objet ThisWorkbook.

Cordialement.

Didier_mDF

 

[david]

Merci Didier, c'est ce qu'il me fallait.
Une petite question encore :
Par quel moyen as tu cet effait "bulle et nuage" dans le fichier qui est bien sympathique.
Merci encore

 

[myDearFriend]

Bonsoir David, le Forum.


   - Barre d'outils "Dessin", "Formes automatiques" puis "Bulles et légendes...".

   - Clic Droit sur la forme "Format de la forme automatique...", onglet "Couleur et Trait", tu joues sur la couleur et la transparence...

   - Finalement, toujours dans la barre d'outils "Dessin", Style et Options d'ombre...


Cordialement.

Didier_mDF

 

[david]

Bonsoir Didier, le forum,


Merci pour cette rapidité et cette pertinence dans ta réponse.
A+

 

[Celeda]

Bonsoir Le Forum,



Et tu ne sais pas tout, david,

Notre mDF est un spécialiste des cellules clignotantes.​

Déjà tout petit, il courait après les petites lucioles bleues​

En essayant d'en attraper une, celle-ci lui dit :"tannante, tannante​

Je suis, parbleu !!!​

si tu veux posséder ma flamme​

il te faudra composer mon épithalame"​

[/center]

Que Nenni
Lui dit
Notre Ninja




Plutôt VBA!!


Et c'est ainsi que notre Didier se lança dans l'écriture de ces codes qui nous ravissent jour après jour.​

   
Tu retrouveras sur ce fil, une autre démo :Lien supprimé

 

[myDearFriend]

Bonsoir Celeda, re- David,

J'ai pas tout compris mais c'est à peu près ça Celeda.
Certains ont des cellules grises, ...chez moi elles clignotent ! LOL

Cordialement.

Didier_mDF