Discussion :

[DFoze]

Bonjour à tous,

Je suis à la recherche d'une solution qui me permettera de retourner le nom de la procédure ou fonction dans laquel je me trouve.

Ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Ma_Sub()
     On Error GoTo GestionErreur
 
        i = 1 / 0
     Exit Sub
GestionErreur:

    ' Affichage du nom de ma procédure
    MsgBox (Nom Ma procédure)

    Resume Next

End Sub

Merci d'avance....

[SilkyRoad]

bonsoir

effectivement, cher ami Ouskel"n'or je n'ai pas souvenir d'avoir présenté une telle macro ...;o)



je ne suis pas sur d'avoir bien compris le probleme , mais tu peux essayer :

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
17
18
19
20
21
22
23
24
25
Sub Ma_Sub()
Dim i As Integer
 
On Error GoTo GestionErreur
 
i = 1 / 0
 
Exit Sub
GestionErreur:
'Affichage du nom de ma procédure
ControleProcedureActive
End Sub
 
 
Sub ControleProcedureActive()
Dim NomProcedure As String
Dim x As Long
 
With Application.VBE.ActiveCodePane
.GetSelection x, 0, 0, 0
NomProcedure = .CodeModule.ProcOfLine(x, 0)
End With
 
MsgBox NomProcedure
End Sub

bon week end
michel

[ThierryAIM]

Pour une gestion d'erreur locale, tu n'as qua mettre le nom de ta procédure dans le message

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
 
    On Error GoTo Command1_Click_Error
 
    Exit Sub
 
Command1_Click_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Feuille Form1"
    Err.Clear
End Sub

un outil comme MZTools te permets de le faire automatiquement

[jmfmarques]

J'aimerais savoir ce qui ici laisse penser que l'on n'est pas sous VB6 tout seul (auicun tag ni aucun indice...) et, si non, comment faire fonctionner celà sous VB seul.
Merci.