Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 ?
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" <jmp83@discussions.microsoft.com> a écrit dans le message de news:
8F162ADD-33CD-475B-91BB-1F556A63CCB5@microsoft.com...
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 ?
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 ?
Hep! il faut, bien entendu, au préalable, déclaré la fonction Sleep.
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
--
"jmp83" <jmp83@discussions.microsoft.com> a écrit dans le message de news:
8F162ADD-33CD-475B-91BB-1F556A63CCB5@microsoft.com...
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 ?
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 ?
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" <ponsinet.frederic363etdesbrouettes@orange.fr> a écrit dans le
message de news: ed%23XRnotIHA.3968@TK2MSFTNGP04.phx.gbl...
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" <jmp83@discussions.microsoft.com> a écrit dans le message de news:
8F162ADD-33CD-475B-91BB-1F556A63CCB5@microsoft.com...
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 --