Sub test()
Dim plage As Range
Set plage = ActiveSheet.UsedRange
On Error Resume Next
MsgBox plage.SpecialCells(xlCellTypeFormulas, 16).Address
MsgBox plage.SpecialCells(xlCellTypeConstants, 16).Address
End Sub
Sub ChercheErreursREF()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If IsError(c) Then
c.Interior.ColorIndex = IIf(c = CVErr(xlErrRef), 3, xlNone)
End If
Next c
End Sub
Public Sub Clign()
Dim i As Byte
'
Temps = Now + TimeValue("00:00:02")
Application.OnTime Temps, "Clign"
For i = 3 To 500
If Range("BA" & i) > 10 Then
With ThisWorkbook
With .Sheets("Vordispoliste").Range("BA" & i)
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, xlNone, 3)
End With '
With .Sheets("Vordispoliste")
.Shapes("Alerte").Visible = Not .Shapes("Alerte").Visible
End With
End With
End If
Next i
End Sub