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 : 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
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