Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fredo P
Le #6631651
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"
Comment faire clignoter une cellule ?


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

--

"jmp83"
Comment faire clignoter une cellule ?


André free
Le #6636371
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" 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"
Comment faire clignoter une cellule ?






Publicité
Poster une réponse
Anonyme