Activez JavaScript dans le navigateur pour afficher les pages d'aide de LibreOfficeDev

Fonction Erl

Renvoie le numéro de la ligne dans laquelle une erreur s'est produite lors de l'exécution du programme.

Syntaxe :


Erl

Valeur de retour :

Nombre entier

Paramètres :

Icône Remarque

La fonction Erl renvoie uniquement un numéro de ligne, et non une étiquette de ligne.


Exemple :


Sub ExampleError
On Error GoTo ErrorHandler ' Configurer le gestionnaire des erreurs
Dim iVar As Integer
Dim sVar As String
' Erreur due à un fichier inexistant
    iVar = Freefile
    Open "\file9879.txt" For Input As #iVar
    Line Input #iVar, sVar
    Close #iVar
    Exit Sub
ErrorHandler:
    MsgBox "Erreur " & err & ": " & Error$ + chr(13) + "à la ligne : " + Erl + chr(13) + Now , 16 ,"Une erreur s'est produite"
End Sub