Microsoft 365 gestion des erreurs vba Excel

[iliess]

Bonjour
voici la structure de mon code vba excel

sub test ()
'==============Déclarations Des Variables==============
With Application
    .Calculation = xlCalculationManual
    .EnableEvents = False
    .ScreenUpdating = False
    .Application.DisplayAlerts = False
End With
'===============Bloc N°01=========================
if .........then.......

end if
'===============Bloc N°02==========================
for i=1 to n

nexti
'=================Fin Du Code=====================
With Application
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
    .ScreenUpdating = True
    .Application.DisplayAlerts = True
End With
end sub

Si le bloc N°01 ou N°02 contient une erreur alors les code suivant

Application .Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False

sont toujours désactivé et dans cette situation je suis obligé de redémarrer Excel pour les activés.

SVP est ce qu'il y a un code qui gère cette situation .

Salutations.

 

[dysorthographie]

Bonjour,
Pourquoi y aurait il une erreur ?

Tu ne testes pas les cas qui pourrait générer d'éventuelles erreurs.

Attention on error inhibe le débug il faut gérer les erreurs

On error GOTO FnCode
==============Déclarations Des Variables==============
With Application
    .Calculation = xlCalculationManual
    .EnableEvents = False
    .ScreenUpdating = False
    .Application.DisplayAlerts = False
End With
'===============Bloc N°01================
'Etc...
FinCode:
'=================Fin Du Code=====================
With Application
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
    .ScreenUpdating = True
    .Application.DisplayAlerts = True
End With

 

[iliess]

Merci Mr dysorthographie pour votre réponse.