Liste des numéros d'erreur

Sub Feuil2_Bouton1_QuandClic()
Dim i As Long, ligne As Integer

For i = 1 To 65536
        On Error GoTo suite:
        Err.Raise i
Next i
Exit Sub
suite:

If Not Err.Description = 'Erreur définie par l'application ou par l'objet' Then
        ligne = ligne + 1
        Cells(ligne, 1) = Err.Number
        Cells(ligne, 2) = Err.Description
End If
Resume Next
       
End Sub

Cliquez pour agrandir...