Discussion :

[fardon57]

Bonjour,

Je débute en VBA et cherche la syntaxe à utiliser pour gérer les erreurs ?

Existe-t-il un bloc try/catch ?

Merci

[tototiti2008]

Bonjour fardon57,

Existe-t-il un bloc try/catch ?

Je ne connais pas, c'est utilisé dans quel langage ?

Les erreurs sont gérées par de commandes du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On error Goto Err1

avec à la fin de la sub un bloc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Exit Sub
Err1:
Msgbox "Erreur" & err.number
end Sub

avec la possibilité d'utiliser des commandes comme

Resume : retour à la ligne source de l'erreur
Resume Next : passage à la ligne suivante de l'erreur

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Goto 0

qui permet de réactiver les plantages normaux

pas sûr que tout ça soit trés clair...

[fring]

Bonjour,

Un excellent tuto sur le sujet --> http://silkyroad.developpez.com/VBA/GestionErreurs/

[Yolak]

Bonjour,
Tu peux utiliser ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

Qui n'executera pas la ligne qui suit si elle provoque une erreur

Ou:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub MaSubDeTest()
On Error GoTo ErrorHandler
    'Le code qui doit s'executer
    Exit Sub
ErrorHandler:
    'Le code qui s'execute si il y a une erreur
    'Par exemple:
    Dim MonResultat
    MonResultat = MsgBox("Erreur n° " & Err.Number & vbCrLf & "Description : " & Err.Description, vbCritical + vbOKOnly, "Erreur d'execution")
End Sub

Qui permet de mieux gérer les erreurs


EDIT: A peine le temps de répondre qu'il y a déjà deux réponses avant moi !!!
Sinon, pour répondre a cette question:

Je ne connais pas, c'est utilisé dans quel langage ?

Ca c'est en VB.NET

[BenjGe]

tu peux reproduire un équivalent de try catch comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
on error resume next 'les erreurs deviennent non bloquantes
 
'instructions
.........
 
'gestion de lexception
select case err.number
       case 1
'traitement
       case 1004
'traitement
       case else
'dans tout autre cas
end select
 
on error goto 0 'les erreurs sont de nouveau bloquantes

[fardon57]

Merci, je vais essayer tout ça.

Est-t-il possible de definir ces propres "exceptions" ? Lorsque notre business logique le necessite, et pas seulement apres une erreur Excel

[BenjGe]

il existe une commande err.raise, pour lever une exception dans une procédure.