Clignotement d'une cellule [Résolu]

cs_filio 18 Messages postés lundi 30 avril 2007Date d'inscription 21 mai 2007 Dernière intervention - 10 mai 2007 à 11:03 - Dernière réponse : cs_filio 18 Messages postés lundi 30 avril 2007Date d'inscription 21 mai 2007 Dernière intervention
- 10 mai 2007 à 11:29
Bonjour,

Quelqu'un sait-il comment faire clignoter une cellule, (par exemple alternance de rouge et blanc)?

Merci
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 10 mai 2007 à 11:18
3
Merci
Une cellule de quoi ? D'un listview, du flexgrid, du DBGrid, d'une soucoupe volante ?

Merci cs_DARKSIDIOUS 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

Commenter la réponse de cs_DARKSIDIOUS
Meilleure réponse
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 10 mai 2007 à 11:23
3
Merci
Salut,
Regarde si ceci pourrait t'aider

'Dans ThisWorkBook
Private Sub Workbook_Open()
BoolBlink = True
Set CellToBlink = ActiveSheet.Range("A1")
Application.OnTime Now + TimeSerial(0, 0, 1), "BlinkCell"
End Sub<hr />

'DANS UN MODULE
'pour savoir si on doit clignoter
Public BoolBlink As Boolean
'Cellule a faire clignoter
Public CellToBlink As Range

Public Sub BlinkCell()
If Not BoolBlink Then Exit Sub
If CellToBlink.Interior.Color = vbRed Then
   CellToBlink.Interior.Color = vbWhite
Else
   CellToBlink.Interior.Color = vbRed
End If
Application.OnTime Now + TimeSerial(0, 0, 1), "BlinkCell"
End Sub<hr />
, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

Commenter la réponse de jrivet
Meilleure réponse
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 10 mai 2007 à 11:24
3
Merci
oups petite correction.
Si tu parles bien D'excel et non de soucoupe volante

Public Sub BlinkCell()
   If BoolBlink Then
       If CellToBlink.Interior.Color = vbRed Then
           CellToBlink.Interior.Color = vbWhite
       Else
           CellToBlink.Interior.Color = vbRed
       End If
   End If
   Application.OnTime Now + TimeSerial(0, 0, 1), "BlinkCell"
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

Commenter la réponse de jrivet
Meilleure réponse
cs_filio 18 Messages postés lundi 30 avril 2007Date d'inscription 21 mai 2007 Dernière intervention - 10 mai 2007 à 11:29
3
Merci
Rien à dire vous déchirez tout!
Gracias!!!

Merci cs_filio 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

Commenter la réponse de cs_filio
cs_filio 18 Messages postés lundi 30 avril 2007Date d'inscription 21 mai 2007 Dernière intervention - 10 mai 2007 à 11:25
0
Merci
Je suis sous VBA-E
on oublie donc la soucoupe volante, mais il s'agit dc d'une cellule de tableau
 
Commenter la réponse de cs_filio

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.