Gestion des erreurs en VBA

Bonjour,

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

Existe-t-il un bloc try/catch ?

Merci

Bonjour fardon57,

Citation:

---

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:

---

On error Goto Err1

---

avec à la fin de la sub un bloc

Code:

---

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:

---

On Error Goto 0

---

qui permet de réactiver les plantages normaux

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

Bonjour,

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

;)

Bonjour,
Tu peux utiliser ceci:

Code:

---

On Error Resume Next

---

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

Ou:

Code:

---

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:

Citation:

---

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

---

Ca c'est en VB.NET

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

Code:

---

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

---

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

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