macro activée avec on error

T

toubib

Guest
bonjour à tous,

je cherche à se faire activer une macro avec un on error comment faire?

ex: on error goto erreur
erreur:
lancement de la macro x
 

Hellboy

XLDnaute Accro
Bonjour toubid

Il existe différente façon de traiter un évènement d'erreur, mais voici un exemple:


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
 

Discussions similaires

Statistiques des forums

Discussions
312 347
Messages
2 087 501
Membres
103 563
dernier inscrit
samyezzehar