Cellule clignotante

4 réponses

mjp

17/12/2004 à 13:54

Bonjour,
J'aimerais obtenir une chose assez simple.
J'ai tout un petit texte d'explication et j'aimerais mettre en dessous une
cellule avec un lien vers la feuille suivante.
(OK jusque la il y a pas de problème)

Le problème, c'est que j'aimerais que cette cellule change de couleur
(clignote!) ET que je garde la main pour cliquer sur le lien

4 réponses

Rai

17/12/2004 à 16:22

Bonsoir,

Tu programmes un sapin de noël virtuel ? ;o))

Ce serait de saison.

Rai

"mjp" a écrit dans le message de news: cpukqt$m5p$

Bonjour,
J'aimerais obtenir une chose assez simple.
J'ai tout un petit texte d'explication et j'aimerais mettre en dessous une
cellule avec un lien vers la feuille suivante.
(OK jusque la il y a pas de problème)

Le problème, c'est que j'aimerais que cette cellule change de couleur
(clignote!) ET que je garde la main pour cliquer sur le lien

Hervé

17/12/2004 à 16:48

Salut,
Le problème est la prise en compte du lien durant le clignotement. Tu peux
par contre bidouiller en demandant la sélection de la cellule, ce qui
sélectionnera la feuille désirée. Enfin, regarde si cela t'intéresses et
adapte :

A mettre dans le module de ta feuille, la cellule clignote à l'activation de
la feuille et s'arrête à la désactivation (ça ne se voit plus mais ça
n'occupe plus le système) :
-----------------------
Private Sub Worksheet_Activate()
Stopper = False
Clignote
End Sub

Private Sub Worksheet_Deactivate()
Stopper = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Stopper = True
[A2].Select
Worksheets("Feuil2").Select
End If
End Sub
--------------------

A mettre dans un module standard :
--------------------
Declare Function GetTickCount Lib "Kernel32" () As Long

Public Stopper As Boolean

Sub Minuterie(Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
DoEvents
Loop
End Sub

Sub Clignote()
Do While Stopper <> True
[A1].Interior.ColorIndex = 3
Minuterie 500
[A1].Interior.ColorIndex = 0
Minuterie 500
Loop
End Sub
--------------------
Hervé.

"mjp" a écrit dans le message news:
cpukqt$m5p$

Bonjour,
J'aimerais obtenir une chose assez simple.
J'ai tout un petit texte d'explication et j'aimerais mettre en dessous une
cellule avec un lien vers la feuille suivante.
(OK jusque la il y a pas de problème)

Le problème, c'est que j'aimerais que cette cellule change de couleur
(clignote!) ET que je garde la main pour cliquer sur le lien

17/12/2004 à 20:18

Bonsour® Rai
wrote:

Bonsoir,
Tu programmes un sapin de noël virtuel ? ;o))
;o)))

n'importe quoi ....et puis pourquoi pas de la musique pendant qu'on y est
???
;o)))
http://cjoint.com/?mrutdHG3ET

alors désolé lais, vraiment vite fait, ;o)))
la musique ce sera pour plus-tard !!!
;o)))
promis !!!
;o)))

Ce serait de saison.
Rai

Rai

18/12/2004 à 12:37

ROFLMAO !!!!!!!!!!

Bravo, j'adooore, c'est kitsch à souhait.
Je me demande si je ne vais pas l'envoyer en remplacement des cartes de noël traditionnelles ;oP

"GD" a écrit dans le message de news:

Bonsour® Rai
wrote:
Bonsoir,
Tu programmes un sapin de noël virtuel ? ;o))
;o)))

n'importe quoi ....et puis pourquoi pas de la musique pendant qu'on y est
???
;o)))
http://cjoint.com/?mrutdHG3ET

alors désolé lais, vraiment vite fait, ;o)))
la musique ce sera pour plus-tard !!!
;o)))
promis !!!
;o)))

Ce serait de saison.
Rai

Cellule clignotante

4 réponses

Veuillez sélectionner un problème