Re : Analyse de code
bonjour Papybob
que donne ce code dans ton classeur
juste adapter les feuilles(feuil2)
Sub ListeMacrosModule()
'nécessite une référence à la librairie
'Microsoft Visual Basic For Application Extensibility 5.3
Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim ProcName As String
Dim I As Long, L As Long
L = 1
Feuil2.Cells.ClearContents
For I = 1 To ThisWorkbook.VBProject.VBComponents.Count
Set VBCodeMod = ThisWorkbook.VBProject.VBComponents(I).CodeModule
With VBCodeMod
StartLine = .CountOfDeclarationLines + 1
Do Until StartLine >= .CountOfLines
Feuil2.Cells(L, 1).Value = .Parent.Name 'VBCodeMod.Name '
Feuil2.Cells(L, 2).Value = .ProcOfLine(StartLine, vbext_pk_Proc)
StartLine = StartLine + .ProcCountLines(.ProcOfLine(StartLine, _
vbext_pk_Proc), vbext_pk_Proc)
L = L + 1
Loop
End With
Next I
End Sub
la 2ème partie est commencée,pour le moment toutes les lignes contenant le mot recherché sont récoltées
à bientôt