Microsoft 365 gestion des erreurs vba Excel

iliess

XLDnaute Occasionnel
Bonjour
voici la structure de mon code vba excel
VB:
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

XLDnaute Accro
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
Code:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
313 311
Messages
2 097 039
Membres
106 816
dernier inscrit
Garry972