Discussion :

[SpyKe974]

Ma question est simple. Je connais tous les principes du On error goto.

Mais j'aimerais pouvoir , lors d'une certaine vérification de donnée, LEVER une erreur, parce que l'erreur ne sera détectée que par un sub beaucoup plus loin parce que l'erreur est dans un string.

bref. est-ce qu'il y a un moyen de dire :

Code :

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

1
2
 
If mystr = "" then RAISEERROR

merci

[drakkar_agfa]

Bonjour,

Je ne sais pas si tu vraiment mettre un code d'erreur officiel (celui que le VBA détecte). Sinon, tu peux utiliser un bool (bErreur) global, l'initier à faux, et si tu rencontre

Code :

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

If mystr = "" then bErreur = true

Dans ce cas, avec une variable globale, tu pourras vérifier si une erreur est présente pendant tout ton code.

Ou sinon, plus compliqué à utiliser et suivre, utiliser l'erreur de VBA

Code :

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

Err.Number = 1

Bonne chance!

[SpyKe974]

merci pour ta réponse.

Ton utilisation du booléen ressemble à ce que je fais en C tres souvent.
merci aussi pour Err.Number, je vais lire là-dessus.

l'idée, c'est que mon code a un

Code :

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

1
2
3
4
5
6
7
8
On Error Goto errsub
 
'code
 
 
errsub:
 
'gestion d'erreur

et que l'erreur peut survenir, mais il y a une erreur additionnelle qui ne peut être testée que logiquement, et je me demandais si je pouvais déclencher une erreur pour aller à errsub.

merci

[aalex_38]

bonjour,

un exemple :

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
 
Sub test_erreur()
On Error GoTo fin
 
Dim titi as string
 
If titi = "" Then
    Err.Raise Number:=25, Description:="Mon erreur perso"
End If
 
 
fin:
If err.number > 0 then
MsgBox "Numero: " & Err.Number & vbCr & " Description : " & Err.Description
end if
End Sub

[SpyKe974]

merci beaucoup