clignotement cellule d'une feuille

A

Abel

XLDnaute Accro

• 22 Février 2005

• #2

Re,

Une solution Lien supprimé.

Une autre Lien supprimé.


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

Abel.

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 22 Février 2005

• #3

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

 

Vote positif 0 Vote négatif

L

Léa

Guest

• 22 Février 2005

• #4

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

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 22 Février 2005

• #5

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

 

Vote positif 0 Vote négatif

C

chris33

XLDnaute Nouveau

• 22 Février 2005

• #6

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

 

Vote positif 0 Vote négatif

D

denis

Guest

• 22 Février 2005

• #7

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

 

Vote positif 0 Vote négatif

C

chris33

XLDnaute Nouveau

• 23 Février 2005

• #8

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

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 23 Février 2005

• #9

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.

 

Vote positif 0 Vote négatif

salim

XLDnaute Occasionnel

• 24 Février 2005

• #10

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

 

Vote positif 0 Vote négatif

C

chris33

XLDnaute Nouveau

• 24 Février 2005

• #11

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

 

Vote positif 0 Vote négatif