Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
Salut Benoit! :O)
Il est possible d'obtenir la ligne sur laquelle une erreur est survenue en suivant les étapes suivantes :
Dans un premier tu dois numéroter tes lignes de code et utiliser la constante cachée Erl qiu renvoit le numéro de la ligne contenant l'erreur :
'*** ' Dans un bouton sur la page Private Sub CommandButton1_Click()
1 Dim l As Long
2 On Error Resume Next
3 l = 4 / 0 ' Déclenche une erreur 11 : division par zéro
4 If (Err.Number > 0) Then Call MsgBox( _ "Erreur numéro : " & Err.Number & vbNewLine & _ "Source : " & Err.Source & vbNewLine & _ "Description : " & Err.Description & vbNewLine & _ "Ligne : " & Erl) End If End Sub '***
Maintenant pour numéroter tes lignes, tu peux utilisé un utilitaire tel que mztools (voir ma signature). Il est idenspensable pour faire tout un tas de trucs. ;O)
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Benoit" wrote in message news:blrpff$8d6$
Bonjour,
Je cherche (sous VBA word biensur) à obtenir le numéro de la ligne
courante.
Quelqu'un saurait-il faire ca ?
Merci d'avance pour vos réponses.
Damien.
Salut Benoit! :O)
Il est possible d'obtenir la ligne sur laquelle une erreur est survenue en
suivant les étapes suivantes :
Dans un premier tu dois numéroter tes lignes de code et utiliser la
constante cachée Erl qiu renvoit le numéro de la ligne contenant l'erreur :
'***
' Dans un bouton sur la page
Private Sub CommandButton1_Click()
1 Dim l As Long
2 On Error Resume Next
3 l = 4 / 0 ' Déclenche une erreur 11 : division par zéro
4 If (Err.Number > 0) Then
Call MsgBox( _
"Erreur numéro : " & Err.Number & vbNewLine & _
"Source : " & Err.Source & vbNewLine & _
"Description : " & Err.Description & vbNewLine & _
"Ligne : " & Erl)
End If
End Sub
'***
Maintenant pour numéroter tes lignes, tu peux utilisé un utilitaire tel que
mztools (voir ma signature). Il est idenspensable pour faire tout un tas de
trucs. ;O)
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Benoit" <benoit.riou@marketandmore.fr> wrote in message
news:blrpff$8d6$1@news-reader2.wanadoo.fr...
Bonjour,
Je cherche (sous VBA word biensur) à obtenir le numéro de la ligne
Il est possible d'obtenir la ligne sur laquelle une erreur est survenue en suivant les étapes suivantes :
Dans un premier tu dois numéroter tes lignes de code et utiliser la constante cachée Erl qiu renvoit le numéro de la ligne contenant l'erreur :
'*** ' Dans un bouton sur la page Private Sub CommandButton1_Click()
1 Dim l As Long
2 On Error Resume Next
3 l = 4 / 0 ' Déclenche une erreur 11 : division par zéro
4 If (Err.Number > 0) Then Call MsgBox( _ "Erreur numéro : " & Err.Number & vbNewLine & _ "Source : " & Err.Source & vbNewLine & _ "Description : " & Err.Description & vbNewLine & _ "Ligne : " & Erl) End If End Sub '***
Maintenant pour numéroter tes lignes, tu peux utilisé un utilitaire tel que mztools (voir ma signature). Il est idenspensable pour faire tout un tas de trucs. ;O)
