clignotement cellule d'une feuille

[chris33]

RE-bonjour le forum.

Je suis à la recherche du code qui permet de faire clignoter une cellule sur une feuille 'excel2000' (afin de faire porter une attention particulière à l'utilisateur)

Merci d'avance à vous toutes et tous
Chris33

 

[Abel]

Re,

Une solution Lien supprimé.

Une autre Lien supprimé.


Fouille les archives. C'est un sujet redondant (s'il en est).

Abel.

 

[Brigitte]

Bonjour,


Je crois que Didier_mDF (mydearfriend) avait un programme pour ca si je me souviens bien... Donc essaie de rechercher, mais il y en a beaucoup, des posts anciens de Didier.

Mais c'est à vérifier...

Bon courage

 

[Léa]

Bonjour,

Un petit bout de code tout bête

For T = 1 To 25
Range('F10').Select
For I = 1 To 4000000
Next I
Range('F10').Interior.ColorIndex = 3
For I = 1 To 4000000
Next I
Range('F10').Interior.ColorIndex = 2
Next T

Bon courage
Léa

 

[Brigitte]

Et parce qu'il neige ici et que donc c'est comme si c'était NOEL, voici en cadeau, pour t'éviter de chercher la macro de Didier qui a fait parler d'elle en bien je crois (notamment Celeda) :

Lien supprimé

Les modifs c'est pour faire des essais de lien... J'ai essayé de renommer comme Pascal me l'a expliqué, bouh ca marche pas !!!

Message édité par: Brigitte, à: 22/02/2005 17:43

Message édité par: Brigitte, à: 22/02/2005 17:47

Message édité par: Brigitte, à: 22/02/2005 17:48

 

[chris33]

Merci à vous toutes et tous

Grace à votre implication et grace à la promptitude de vos réponses, j'ai bien avancé dans mon appli.

Un grand Merci
Chris33

 

[denis]

j'ai trouvé cet exemple par hasard! espérant qu'il puisse t'etre utile.

 

[chris33]

Bonjour le forum,

Hier soir, je me suis trop vite enflammé...
J'ai appliqué le code de Didier_mdf, (pour mémo ci-dessous)

Dim Tempo As Date
Public Sub Clignotement()

Static C As Boolean
C = Not C
Tempo = Now + TimeValue('00:00:01')
ActiveSheet.Range('B17').Interior.ColorIndex = IIf(C, xlNone, 46)
Application.OnTime Tempo, 'Clignotement'
end sub

Public Sub StopClign()
On Error Resume Next
Application.OnTime Tempo, 'Clignotement', , False
ActiveSheet.Range('B17').Interior.ColorIndex = xlNone
On Error GoTo 0
End Sub

...... Cela fonctionne que quelques secondes. Ensuite apparait une erreur 1004 'Impossible de définir la propriété colorIndex de la classe Interior'

Merci à vous toutes et tous si vous le pouvez de me dire ce qui cloche...
Bonne Journée

Chris33

 

[myDearFriend!]

Bonsoir Brigitte, Léa, Chris33, Denis et le Forum.


Chris, si tu as vraiment utilisé tel quel le code que tu as copié ici, je t'avoue ne pas comprendre ce qui t'arrive là... C'est un morceau de code que j'ai, pour ma part, utilisé à plusieurs reprises sans problème particulier.

Peut-être pourrais-tu nous joindre ton fichier ici (Zip de 50 Ko maxi) pour qu'on puisse analyser ce qui ne va pas...


Cordialement.

 

[salim]

Bonsoir à tous

chris33 est-ce que par hasard ta feuille serais protégée ?, si c'est le cas essaie alors sans la protection car il se peut que cela soit la source du problème.

Ps: je profite de ce fil pour faire un coucou spécial à Léa que je suis heureux de revoir parmis nous 🙂 .

@ bientôt
salim

 

[chris33]

Salim,Mdf,Léa... et autres sur le forum.. bonjour,

En effet Salim, j'ai une protection sur la feuille. Je vais de ce pas la faire 'sauter'.

Encore merci à vous toutes et tous
Chris33