Clignotement d'une cellule [Résolu]

Messages postés
18
Date d'inscription
lundi 30 avril 2007
Dernière intervention
21 mai 2007
- - Dernière réponse : cs_filio
Messages postés
18
Date d'inscription
lundi 30 avril 2007
Dernière intervention
21 mai 2007
- 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
Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Dernière intervention
4 mars 2013
3
Merci
Une cellule de quoi ? D'un listview, du flexgrid, du DBGrid, d'une soucoupe volante ?

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de cs_DARKSIDIOUS
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de jrivet
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de cs_filio
Messages postés
18
Date d'inscription
lundi 30 avril 2007
Dernière intervention
21 mai 2007
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.