Comment arreter une Sub dans VBA apres une erreur

Bonjour

Comment on fait pour qu'une procedure a la suite d'une erreur s'arrete de calculer?

Par exemple supposons qu'on ait:

Code:

---

1 2 3 4

Function Ln (x) Ln = WorksheetFunction.Ln(x) end function

---

Code:

---

1 2 3 4 5

Sub essais() x=-1 L=Ln(x) End sub

---

Il va y avoir un pb
Je veux creer un test if qui permet de tout arreter si x est negatif

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub essais() Dim x, l As Variant On Error GoTo fin x = -1 l = Log(x) Exit Sub fin: MsgBox ("errare humanum est") End Sub

---

merci
mais je n'aime pas trop le goto
y a t il plus propre que ca?

Et non hélas, 3 fois hélas.
La gestion des exceptions, une des plus grosses faiblesse de VB !:(

Tu peux faire

Code:

---

1 2	On error resume next

---

Mais dans ce cas , tu ne verras jamais si il y a une erreur !

En relisant :)

Code:

---

1 2 3 4 5 6 7 8 9

Sub essais() x=-1 IF x>=0 THEN L=Ln(x) else msgbox ("Valeur négative !") end if End sub

---