Surligner une ligne dans le code
Bonjour,
J'aimerais, après avoir cliquer sur un rectangle de ma feuille, renvoyer vers une ligne précise dans mon code. Si le triangle contient le texte "Tata", me rendre dans vb et surligner le premier Tata venu.
J'ai trouvé ça:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Sub GotoAPrivateSubOnModuleStandard()
Dim WB As Workbook
Dim Code As Object
Dim NomProc As String, NomModule As String
Dim DebCode As Integer, VBext_Pk_Proc As Long
Dim Test As Boolean
Set WB = ThisWorkbook
NomProc = "Macro5"
NomModule = "Module2"
Set Code = WB.VBProject.VBComponents(NomModule).CodeModule
Test = Code.Find(NomProc, 1, 1, -1, -1, True, False)
If Test = True Then
With Code
.CodePane.Show
DebCode = .ProcStartLine(NomProc, VBext_Pk_Proc) + 1
.CodePane.SetSelection DebCode, 1, DebCode, 1
End With
End If
End Sub |
qui ne répond que partiellement à ma question: cela surligne le sub désiré.
Le problème, c'est que mon sub est maxi_grand, donc me surligner ne sert rien. De plus, je ne trouve pas (même sur msdn) d'aide pour SetSelection (j'aimerais qu'une commande telle que .CodePane.SelectionnerAPartirDuCurseur(maRecherche.Length) existe).
Existe t-il voir plus simple, comme la simple recherche par F3?
Merci
