Cellule clignotante

bonjour

comment mettre sur une feuille une cellule colorée qui clignote constamment (sans conditions)

c 'est juste pour la déco, et je n'ai rien trouvé sur les sujets déjà traités

voilà, y a pas le feu

@+, Ptkntz

PS : comment le transposer sur un groupe de cellules alignées ?

Bonjour

à voir avec la pièce jointe si cela t'apporte une solution

salut

merci beaucoup, ça me va

pourrais tu juste m expliquer comment concrètement saisir ce code (je suis sous excel 2003)

merci, à plus (vers 19h00 seult...)

Bonjour Ednoork

Ta macro est bien faite ! Je voudrais savoir si il est possible de mettre fin à la boucle au bout de 5 à 10 clignotements par exemple et de manière automatique

Merci d'avance pour ta réponse

re,

à ptkntz, sous 2003 je ne sais pas

à Silecya, c'est possible à faire mais on change de code, la "durée" n'est pas due à un facteur temps mais à un nombre de clignotements à l'issu duquel le code s'arrête.

la variable pour la durée se fait à se niveau :

If i <= 10 Then

excuses moi, je suis plutôt debutant

tu fais comment exactement dans ta version excel : VBA, commandbutton, ou MFC etc

pourrais tu me donner ton mod op ?

dans l'attente , merci

Ptkntz

Bonjour,

tu fais comment exactement dans ta version excel : VBA, commandbutton, ou MFC etc

c'est à dire????

Sinon les couleurs pouvant être définies avec ColorIndex sont les suivantes :

salut, merci d avoir repondu : je veux dire que je ne connais qu'un peu les MFC, le "commandbutton" sur excel 2003

qu'est ce que je fais de ce code concrètement ? tu vois mon niveau d excel en passant .............

si tu pouvait juste concrètement me dire comment le "saisir"

dans l 'attente, merci

Ptkntz

Salut ptkntz,

avec ton fichier excel, ALT + F11

Onglet "Insertion", tu sélectionnes "Module", dans ce module tu colles ce code :

Dim t As Integer
Dim temps
Sub clignote()
    If t = 0 Then
      Range("C3:D6").Interior.ColorIndex = 6 'valeur en fonction de la couleur voulue
      t = 1
    Else
      Range("C3:D6").Interior.ColorIndex = 2 'valeur en fonction de la couleur voulue
      t = 0
    End If
    temps = Now + TimeValue("00:00:01")
    Application.OnTime EarliestTime:=temps, Procedure:="clignote"
End Sub

Sub clignote_pas()
  Application.OnTime EarliestTime:=temps, Procedure:="clignote", Schedule:=False
End Sub

dans ThisWorbook, tu colles ce code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call clignote_pas
End Sub

Private Sub workbook_Open()
Call clignote
End Sub

tu enregistres, tu fermes ton fichier, tu le relances et la plage de cellule va clignoter

salut et merci

le premier code, c est bon (à la maison j ai excel 2007)

par contre, je ne trouve pas "this workbook"

pourrais tu juste me guider une dernière fois

merci, et @+, Ptkntz

re

ALT + F11 pour afficher ton éditeur VBA

salut

ça y est, au boulot ça marche !! (chez moi ça ne marchait pas, des messages barbares...)

merci pour ta patience et le temps que tu as pris

c est vraiment un site utile, où l'entraide d'internet est super !!

salut à tous, Ptkntz