[SIZE=2]Option [COLOR=navy]Explicit
Dim [/COLOR]Temps[COLOR=navy] As Date
Dim [/COLOR]Cel[COLOR=navy] As [/COLOR]Range
[COLOR=navy]Sub[/COLOR] TrouveRef()
[COLOR=navy]Dim [/COLOR]R[COLOR=navy] As String[/COLOR]
R = Application.[COLOR=navy]Input[/COLOR]Box("Référence ?", "Rechercher", [COLOR=navy]Type[/COLOR]:=2)
[COLOR=navy]If [/COLOR]R = ""[COLOR=navy] Or [/COLOR]R = "Faux" [COLOR=navy]Then Exit Sub[/COLOR]
[COLOR=navy]With[/COLOR] Worksheets("brute")
[COLOR=navy]Set[/COLOR] Cel = .Columns(1).Find(R, LookIn:=xlValues, LookAt:=xlWhole)
[COLOR=navy]If Not [/COLOR]Cel[COLOR=navy] Is Nothing Then[/COLOR]
.Activate
Cel.[COLOR=navy]Select[/COLOR]
Clign
[COLOR=navy]Else[/COLOR]
MsgBox "Référence non trouvée"
[COLOR=navy]End If[/COLOR]
[COLOR=navy]End With
End Sub[/COLOR]
[COLOR=navy]Sub[/COLOR] Clign()
[COLOR=navy]Static[/COLOR] N[COLOR=navy] As Byte[/COLOR]
[COLOR=navy]If [/COLOR]N > 9 [COLOR=navy]Then[/COLOR]
[COLOR=green]'Arrêter le clignotement au bout de 5 fois[/COLOR]
N = 0
StopClign
[COLOR=navy]Else[/COLOR]
N = N + 1
[COLOR=green]'Programmation de l'évènement toutes les secondes[/COLOR]
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
[COLOR=green]'Traitement[/COLOR]
Cel.Interior.ColorIndex = IIf(Cel.Interior.ColorIndex = 3, xlNone, 3)
[COLOR=navy]End If
End Sub[/COLOR]
[COLOR=navy]Sub[/COLOR] StopClign()
[COLOR=navy]On Error Resume Next[/COLOR]
[COLOR=green]'Stoppe la gestion de l'évènement OnTime[/COLOR]
Application.OnTime Temps, "Clign", , [COLOR=navy]False[/COLOR]
Cel.Interior.ColorIndex = xlNone
[COLOR=navy]On Error GoTo[/COLOR] 0
[COLOR=navy]End[/COLOR] Sub[/SIZE]