Bonjour,
Voilà j'ai copier une macro sur ce site,
Ce site n'existe plus
Voici la macro que j'ai copié
Attribute VB_Name = 'CelluleClignotante3'
'Si tu veux que ça 'clignote', passage obligé par le VBA !
'Un exemple de 'clignotement' particulier pour le MIN de la plage A1
10 :
'Dans le module de la feuille (clic droit sur l'onglet > Visualiser le code)
'Private Sub Worksheet_Change(ByVal Target As Range)
' If Not Intersect(Target, Range('A1
10')) Is Nothing Then CLIGNOTE
' Target.Select
'End Sub
'Dans un module standard :
Declare Sub Sleep Lib 'kernel32' (ByVal dwMilliseconds As Long)
Sub CLIGNOTE()
'Alain Vallon, mpfe
[A1
10].Find _
(What:=Application.WorksheetFunction.Min([A1
10]), LookAt:=xlWhole).Activate
mémo1 = ActiveCell.Font.ColorIndex
mémo2 = ActiveCell.Font.Size
For x = 1 To 5
For i = 10 To 20
ActiveCell.Font.ColorIndex = 3
ActiveCell.Font.Size = i
Sleep (5)
DoEvents
Next i
ActiveCell.Font.Size = 12
ActiveCell.Font.ColorIndex = 1
Next x
ActiveCell.Font.ColorIndex = mémo1
ActiveCell.Font.Size = mémo2
End Sub
Merci pour ton aide