=SOMMEPROD(1*ESTERREUR(B2:B5000))
|
Sub Errare_Excelum_Est()
Dim vErr$, C As Range, NB_err&, x
For Each C In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 16)
vErr = vErr & "," & C.Parent.Name & "| " & C.Address(0, 0)
Next
x = Split(vErr, ",")
NB_err = UBound(x)
Sheets(2).[A1].Resize(NB_err) = Application.Transpose(x)
End Sub
Sub Marquer_Erreur()
On Error Resume Next
With ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 16)
.Interior.Color = 255
.Font.Bold = -1
.Font.Color = vbYellow
.Borders.Weight = 2
.Borders.Color = vbGreen
End With
End Sub