Afficher un code d'erreur [Résolu]

Signaler
Messages postés
87
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
15 décembre 2010
-
lediablo
Messages postés
215
Date d'inscription
mercredi 26 avril 2006
Statut
Membre
Dernière intervention
2 août 2012
-
slt tt le monde,

j'essaye d'afficher un code d'erreur avec le code suivant:

msgbox err.number

mais quand je fais le test sur ce code il me dis que ce code n'existe pas

je voulais savoir est ce que c'est le vrai code d'erreur qu'est affiché ou le compilateur fais une conversion implicite quand je l'affiche???


Merci d'avance

6 réponses

Messages postés
215
Date d'inscription
mercredi 26 avril 2006
Statut
Membre
Dernière intervention
2 août 2012

c'est le numéro d'erreur que tu a "-754465***" tu peut faire ta comparaison c'est quoi le problème

Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie (mon site)
Messages postés
215
Date d'inscription
mercredi 26 avril 2006
Statut
Membre
Dernière intervention
2 août 2012

bonjour
un exemple vite fait
Private Sub Command1_Click()
On Error GoTo monerreur
a = 0 + "b"
Exit Sub
monerreur:
MsgBox Err.Number & " " & Err.Description
End Sub


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie (mon site)
Messages postés
87
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
15 décembre 2010

oui c bien ce que j'ai fais mais le numero d'erreur affiché n'est pas valide il m'affiche un numero de genre "-74........."

j'ai besoin de ce code pour faire un test de ce type


if err.number=numero then
....
end if
Messages postés
87
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
15 décembre 2010

ca marche merci pour ton aide
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
11
C'est pas vraiment fait pour être affiché en décimal mais en hexa :
Private Sub Command1_Click()
 On Error GoTo monerreur
 Dim A As Long, B As Long
 B = 17
 A = B/A 'division par zéro
 Exit Sub
monerreur:
 MsgBox "Erreur n°" & Err.Number & " (0x" & Hex(Err.Number) & ") :" & vbCrlf & Err.Description
End Sub

---
VB.NET is good ... VB6 is better
Messages postés
215
Date d'inscription
mercredi 26 avril 2006
Statut
Membre
Dernière intervention
2 août 2012

merci pour l'info ghuysmans99


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie (mon site)