Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment faire clignoter une cellule ?

3 réponses
Avatar
jmp83
Comment faire clignoter une cellule ?

3 réponses

Avatar
Fredo P
La cellule (O2) à adapter

Sub Clignote()
Dim i As Integer, mem#, a$

Application.EnableEvents = False
Application.ScreenUpdating = True
a$ = [O2] '
With Feuil2.Range("O2")
mem = .Font.Size
.Font.ColorIndex = 3
.Font.Size = mem + 4
.Font.Bold = True
For i = 0 To 19
If [O2] = a Then
[O2] = ""
Else
[O2] = a
End If
Sleep (500)
Next i
End With
Application.EnableEvents = True
End Sub
--

"jmp83" a écrit dans le message de news:

Comment faire clignoter une cellule ?


Avatar
Fredo P
Hep! il faut, bien entendu, au préalable, déclaré la fonction Sleep.
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

--

"jmp83" a écrit dans le message de news:

Comment faire clignoter une cellule ?


Avatar
André free
Bonjour ,
Ne pas oublier d'ajouter au début:

Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

et Sleep 500 (sans parenthèses ?)

"Fredo P" a écrit dans le
message de news: ed%
La cellule (O2) à adapter

Sub Clignote()
Dim i As Integer, mem#, a$

Application.EnableEvents = False
Application.ScreenUpdating = True
a$ = [O2] '
With Feuil2.Range("O2")
mem = .Font.Size
.Font.ColorIndex = 3
.Font.Size = mem + 4
.Font.Bold = True
For i = 0 To 19
If [O2] = a Then
[O2] = ""
Else
[O2] = a
End If
Sleep (500)
Next i
End With
Application.EnableEvents = True
End Sub
--

"jmp83" a écrit dans le message de news:

Comment faire clignoter une cellule ?