clignotement d'une celluleRésolu

Question

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

cs_DARKSIDIOUS · Accepted Answer

Une cellule de quoi ? D'un listview, du flexgrid, du DBGrid, d'une soucoupe volante ?

jrivet · Answer

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

'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

, ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

jrivet · Answer

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

cs_filio · Answer

Je suis sous VBA-E
on oublie donc la soucoupe volante, mais il s'agit dc d'une cellule de tableau

cs_filio · Answer

Rien à dire vous déchirez tout!
Gracias!!!

Clignotement d'une cellule

5 réponses

Votre réponse

Discussions similaires