Génère des hyper-liens vers les prcédures du classeur
Sub ListeProc()
' Outils/Macros/Sécurité/Sources fiables/Cocher Faire confiance au projet Visual Basic
i = 1
For Each c In ActiveWorkbook.VBProject.VBComponents
If c.Type = 1 Then
For ligne = 1 To c.CodeModule.CountOfLines
temp = Trim(c.CodeModule.Lines(ligne, 1))
If Left(temp, 3) = "Sub" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=ActiveSheet.Name & "!A1", TextToDisplay:=Mid(Left(temp, Len(temp) - 2), 4)
i = i + 1
End If
Next ligne
End If
Next c
End Sub
Sub proc1()
MsgBox "proc1"
End Sub
Sub proc2()
MsgBox "proc2"
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
macro = Target.Parent
Application.Run macro
End Sub