macro activée avec on error

Public Sub Test()
On Error GoTo errorHandler
    Sheets(400).Select
    MsgBox 'Ok tout est beau'
    On Error GoTo 0
    Exit Sub
errorHandler:
    Call SiErreur
    Err.Clear
    Resume Next
End Sub

Public Sub SiErreur()
    Dim bytSheet            As Byte
   
    bytSheet = ActiveWorkbook.Sheets.Count
    Sheets(bytSheet).Select
End Sub

Cliquez pour agrandir...