Discussion :

[deubelte]

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 :

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

1
2
3
4
 
Function Ln (x)
Ln = WorksheetFunction.Ln(x)
end function

Code :

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

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

[random]

Code :

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

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

[deubelte]

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

[Garuda]

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

Tu peux faire

Code :

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

1
2
 
On error resume next

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

[Garuda]

En relisant

Code :

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

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