Discussion :

[eliot.raymond]

Bonjour a toutes et tous, Forum bonjour

J'ai définir de nombreuses variables dans mon projet et Je commence à m'y perdre quelque peu.

Existe-il une macro où un logiciel qui me permettrai d'imprimer la liste des variables définies dans TOUT mon projet.

j'ai installer Smart indenter sur mon Excel 2007 pas de soucis mais je pensais que ce logiciel faisait ça mais malheureusement non.

Merci a vous et de votre temps, et vu l'heure un bon appétit a tous

Cordialement Ray

[Theze]

Bonjour,

Une piste, c'est une moulinette. Adapter l'Array :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
Sub Noms_Modules()
 
    '1 => Module standard
    '2 => Module de Classe
    '3 => UserForm
    '100 => ThisWorkbook + Feuille
 
    Dim CollectionModule As Object
    Dim Module As Object
    Dim Tbl
    Dim Pos As Integer
    Dim I As Integer
    Dim J As Integer
    Dim K As Integer
    On Error Resume Next
 
    'défini dans un tableau les mots à chercher, à adapter
    Tbl = Array("Dim", _
                "Static", _
                "Public")
 
    Set CollectionModule = ActiveWorkbook.VBProject.VBComponents
 
    For Each Module In CollectionModule
 
            'recherche les Modules standards de classes et d'UserForms
        Select Case Module.Type
 
            Case 1, 2, 3
 
                K = K + 1
            'inscrit le nom du module en colonne A
                Range("A" & K) = Module.Name
 
                Range("A" & K).Font.Bold = True
 
            'recherche les lignes commençant par
            'les noms du tableau et les inscrit
            'en colonne B. C'est une moulinette
            'qui passe tous les noms du tableau
            'et toutes les lignes
 
                With Module.CodeModule
 
                    For I = 0 To UBound(Tbl)
 
                        For J = 1 To .CountOfLines
 
                            Pos = InStr(.Lines(J, 1), Tbl(I))
 
                            If Pos = 1 Then
 
                                K = K + 1
                                Range("B" & K) = .Lines(J, 1)
 
                            End If
 
                        Next J
 
                    Next I
 
                End With
 
        End Select
    Next
 
    Set CollectionModule = Nothing
    Set Module = Nothing
    Erase Tbl
 
End Sub

Hervé.

[eliot.raymond]

Salut Theze

Merci de ta réponse, mais je n'arrive pas où configure mal le code que tu me propose pour faire fonctionner ce code, ça plante direct mon Excel.

Message: Excel cherche une solution et ça redémarre

Bon ce n'ai pas grave, en fait ce que je souhaitai svp c'est un logiciel qui m'imprime la liste les variables utiliser dans un projet, j'ai déja eu ce style de logiciel, je vais tenter de le retrouver.

Merci beaucoup pour ton aide, bonne après midi a toi

Cordialement Raymond

[eliot.raymond]

Re salut

Bon j'ai retrouver le programme mais autant pour moi c'est un programme qui mets le code en couleur avec indentation et imprime en couleur le code.

le programme n'ai pas de moi, trouver sur le net, je le poste si ça peut servir a quelqu'un

Sinon mon soucis de variable n'ai pas résolu, il doit bien exister un programme qui rempli cette mission

Cdtl

[Theze]

Re,

J'ai modifié un peu mon code et il fonctionne chez moi sur Excel 2003 et 2007. Il te faut adapter à tes besoins :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
Private Sub Noms_Modules()
 
    Dim CollectionModule As Object
    Dim Module As Object
    Dim Tbl
    Dim Ligne As String
    Dim Pos As Integer
    Dim I As Integer
    Dim J As Integer
    Dim K As Integer
    Dim L As Integer
 
 
    On Error Resume Next
 
    'défini dans un tableau les mots à chercher
    Tbl = Array("Sub", _
                "Function", _
                "Public", _
                "Global", _
                "Private", _
                "Dim", _
                "Static")
 
    Set CollectionModule = ActiveWorkbook.VBProject.VBComponents
 
    For Each Module In CollectionModule
 
        K = K + 1
        L = L + 1
        'inscrit le nom du module en colonne A
        Cells(K, 1) = Module.Name
        Cells(K, 1).Font.Bold = True
        Cells(K, 2) = "Variables"
        Cells(K, 3) = "Sub/Function"
 
        'recherche les lignes commençant par les noms du tableau et les inscrit
        'en colonne B. C'est une moulinette qui passe tous les noms du tableau
        'et toutes les lignes
        For I = 0 To UBound(Tbl)
 
            For J = 1 To Module.CodeModule.CountOfLines
 
                Ligne = Trim(Module.CodeModule.Lines(J, 1))
 
                Pos = InStr(Ligne, Tbl(I))
 
                If Pos = 1 Then
 
                    'si c'est une variable
                    If InStr(Ligne, "Sub") = 0 And InStr(Ligne, "Function") = 0 Then
 
                        K = K + 1
                        Cells(K, 2) = Ligne
 
                    'si c'est une Sub ou Function
                    Else
 
                        L = L + 1
                        Cells(L, 3) = Ligne
 
                    End If
                End If
 
            Next J
 
        Next I
 
    Next
 
    Set CollectionModule = Nothing
    Set Module = Nothing
    Erase Tbl
 
End Sub

Hervé.

[Oliv-]

salut,
c'est le complément MZ-tools 3.0 qu'il vous faut
Dans le MENU "Autres utilitaires" "générer la doc. XML"

[eliot.raymond]

@Theze:

Re Salut

Merci a toi, je te joint une capture des modules, Usf, il y a pas de macros dans le programme.

je ne suis pas sur d'arriver a faire fonctionner ton code avec mon programme

Pense tu que cela soit possible svp

Merci a plus tard

Ray