Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Gérer correctement les erreurs en VBA (Excel)

ayi

Je travaille avec VBA depuis un bon moment maintenant, mais je ne suis toujours pas très sûr de la gestion des erreurs.
Un bon article est celui de 
<a href="http://www.cpearson.com/excel/errorhandling.htm" rel="noopener nofollow ugc">CPearson.com</a>
Cependant, je me demande toujours si la façon dont je faisais la gestion des erreurs était/est complètement fausse : 
Bloc 1
<pre><code class="lang-auto">On Error Goto ErrCatcher
If UBound(.sortedDates) > 0 Then

   // Code

Else
ErrCatcher:
// Code

End If

</code></pre>
La clause if, parce que si elle est vraie, sera exécutée et si elle échoue, le Goto ira dans la partie Else, puisque le UBound d’un tableau ne devrait jamais être zéro ou moins sans une erreur, cette méthode a assez bien fonctionné jusqu’à présent.
Si j’ai bien compris, cela devrait être comme ceci :
Bloc 2
<pre><code class="lang-auto">On Error Goto ErrCatcher
If Ubound(.sortedDates) > 0 Then

   // Code
End If

Goto hereX

ErrCatcher:
//Code
Resume / Resume Next / Resume hereX

hereX:

</code></pre>
Ou même comme ceci : 
Bloc 3
<pre><code class="lang-auto">On Error Goto ErrCatcher
If Ubound(.sortedDates) > 0 Then

   // Code
End If

ErrCatcher:
If Err.Number <> 0 then
//Code
End If

</code></pre>
La manière la plus courante que je vois est celle où le “Catcher” d’erreurs est à la fin d’une sub et la Sub se termine en fait avant avec un “Exit Sub”, mais n’est-ce pas un peu déroutant si la Sub est assez grande de devoir aller d’avant en arrière pour lire le code ?
Bloc 4
<blockquote></blockquote>
Source du code suivant : 
<a href="http://www.cpearson.com/excel/errorhandling.htm" rel="noopener nofollow ugc">CPearson.com</a>
<pre><code class="lang-auto"> On Error Goto ErrHandler:
N = 1 / 0 ' cause an error
'
' more code
'
Exit Sub

ErrHandler:

' error handling code'

Resume Next

End Sub

</code></pre>
Cela devrait-il être comme dans le Bloc 3 ?

ayi_2

Vous avez une réponse vraiment formidable de ray023, mais votre commentaire disant que c’est probablement excessif est pertinent. Pour une version “plus légère”…
Bloc 1 est, à mon humble avis, une mauvaise pratique. Comme l’a déjà souligné osknows, mélanger la gestion des erreurs avec le code du chemin normal n’est pas bien. Entre autres choses, si une nouvelle erreur est levée pendant qu’il y a une condition d’erreur active, vous n’aurez pas l’occasion de la gérer (sauf si vous appelez depuis une routine qui a aussi un gestionnaire d’erreurs, où l’exécution va “remonter”).
Bloc 2 ressemble à une imitation d’un bloc Try/Catch. Cela devrait être correct, mais ce n’est pas la manière VBA. Bloc 3 est une variation du Bloc 2.
Bloc 4 est une version minimale de la manière VBA. Je vous conseillerais fortement de l’utiliser, ou quelque chose de similaire, car c’est ce que tout autre programmeur VBA héritant du code s’attendra à trouver. Permettez-moi de présenter une petite extension, cependant :
<pre><code class="lang-auto">Private Sub DoSomething()
On Error GoTo ErrHandler

'Dim as required

'functional code that might throw errors

ExitSub:
'any always-execute (cleanup?) code goes here -- analagous to a Finally block.
'don't forget to do this -- you don't want to fall into error handling when there's no error
Exit Sub

ErrHandler:
'can Select Case on Err.Number if there are any you want to handle specially

'display to user
MsgBox "Something's wrong: " & vbCrLf & Err.Description

'or use a central DisplayErr routine, written Public in a Module
DisplayErr Err.Number, Err.Description

Resume ExitSub
Resume

End Sub

</code></pre>
Notez ce second <code>Resume</code>. C’est une astuce que j’ai apprise récemment : il ne s’exécutera jamais dans le traitement normal, puisque l’instruction <code>Resume <label></code> enverra l’exécution ailleurs. Cela peut être une bénédiction pour le débogage, cependant. Lorsque vous recevez une notification d’erreur, choisissez Déboguer (ou appuyez sur Ctrl-Break, puis choisissez Déboguer lorsque vous recevez le message “L’exécution a été interrompue”). L’instruction suivante (surlignée) sera soit le <code>MsgBox</code> soit l’instruction suivante. Utilisez “Définir l’instruction suivante” (Ctrl-F9) pour surligner le <code>Resume</code> seul, puis appuyez sur F8. Cela vous montrera exactement où l’erreur a été levée.
Quant à votre objection sur ce format qui “saute partout”, A) c’est ce que les programmeurs VBA s’attendent à trouver, comme indiqué précédemment, et B) vos routines devraient être suffisamment courtes pour que le saut ne soit pas long.