Discussion :

[lucasgaetan]

Bonjour le forum,

Je sais qu'il n'y a pas de question à la c**, mais celle là est pas mal:
Existe-t-il un code, qui permet de rechercher un chaîne de caractères dans le code VB ?
J’entends par "code VB " tous les Modules, les codes des objets Excel(feuilles) et des UserForm

Je connais la fonction Rechercher (Ctrl+F), mais j'ai une grande quantité de chaîne à trouver et dans plusieurs classeurs... je suis trop faignant pour le faire à la main

J'ai vu aussi "ThisWorkbook.VBProject.VBComponents", mais rien trouvé d'intéressant , cela ne veux pas dire qu'il n'y a rien.

Pour info, la finalité est de purger les classeurs de leurs plages nommées inutilisées.

Merci.

[thebigsteph]

Bonjour,



Il y a un certain temps je cherchais quelque chose de similaire, je me suis inspiré de ces informations:

https://silkyroad.developpez.com/VBA...cEditor/#LIV-B

J'ai crée un bouton dans une feuille et inséré tout simplement ce code, (ne pas oublier de changer le nom du fichier), cela liste l'ensemble des codes de tout le classeur

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
26
27
28
29
30
31
32
33
 
Sub CommandButton1_Click()
 
'Nécéssite d'activer la référence
'"Visual basic For Application Extensibility 5.3"
'
Dim i As Integer, Ajout As Integer, x As Integer
Dim Msg As String
'Dim VBCmp As VBComponent
Dim Wb As Workbook
 
'Indiquez le nom du classeur ouvert
'Set Wb = ThisWorkbook
Set Wb = Workbooks("Classeur1.xlsm")
 
Ajout = 1
For Each VBCmp In Wb.VBProject.VBComponents
    Msg = VBCmp.Name
 
    With Cells(Ajout, 1)
        .Interior.ColorIndex = 6
        .Value = Msg
    End With
 
    x = Wb.VBProject.VBComponents(Msg).CodeModule.CountOfLines
    For i = 1 To x
        Cells(Ajout + i, 1) = _
            Wb.VBProject.VBComponents(Msg).CodeModule.Lines(i, 1)
    Next
 
    Ajout = Ajout + x + 2
Next VBCmp
End Sub

@+

[lucasgaetan]

Merci thebigsteph,
C'est exactement ce que je cherchais.

[lucasgaetan]

Pour info, la finalité est de purger les classeurs de leurs plages nommées inutilisées.

Si ça intéresse du monde, voir en pièce jointe un module et un UserForm --> se lance avec la procedure "Recherche_Dans_Code"
on peut sans doute faire mieux sur le UF.