Discussion :

[cluster26]

Bonjour,

Je dois reprendre un vieux projet élaboré avec Access 97.

Le code que j'avais écrit à l'époque (j'en étais au stade de débutant dans l'écriture du code) n'a pas été véritablement structuré !..

J'utilise les outils Smart Indent, l'utilitaire des retours à la ligne automatique, etc.. pour le redessiner correctement.

Toutefois, je ne trouve pas d'utilitaire qui me permettrait de supprimer les nombreuses lignes vides qui se trouvent dans ce code !..

Avez-vous une solutions SVP

Merci

[Jean-Philippe André]

Salut,
regarde si le code utilise dans le fil suivant peut t'aider
http://www.developpez.net/forums/d67...s-base-access/
il s'agira de detecter la longueur vide d'une ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Len(Cible) = 0 Then

et de supprimer le cas echeant

[cluster26]

Merci pour la réponse !..

A partir du lien, j'arrive bien à créer la table, mais en finalité je ne découvre aucune piste qui me permettrait de supprimer les lignes vides dans mes functions ou Sub.

En effet, quelle est la source (et le développement..) qui me permettra d'intégrer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Len(Cible) = 0 Then

[Jean-Philippe André]

La procedure parcourt le code de la base, a toi d'y mettre les tests que tu souhaites appliquer

Ici, le code aura une forme similaire a ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For i = 1 To oAccess.VBE.VBProjects(1).VBComponents.Count
        With oAccess.VBE.VBProjects(1).VBComponents.item(i).CodeModule
        ' pour le remplacement d'une ligne entière
            For k = 1 To .CountOfLines
                Cible = .Lines(k, 1)
                'Debug.Print Cible
                If Len(Cible) =0 Then

[cluster26]

Merci pour cette nouvelle réponse.

Toutefois, je bloque toujours sur la syntaxe qui me permettrait de supprimer la ligne!..

Après exécution de ta ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Len(Cible) =0 Then

quelle est la valeur de cible pour pouvoir effacer la ligne ?

Merci à l'avance

[Jean-Philippe André]

C'est pas tant la valeur de Cible qui nous interesse, vu que lorsque la ligne est vide, Cible vaut ""
pour la suppression, la fonction la plus souvent utiliser est Delete

Je te laisse donc le soin de trouver la bonne syntaxe de code

[cluster26]

Bonsoir,

J'ai donc adapté le code en conséquence !..

Le voici.

J'ai réussi à le faire fonctionner !..

Toutefois, il ne me donne pas de résultat probant !..

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
Liste_Procedures_Fonctions_VBA(pathbase As String) As Boolean
Dim strSQL As String
Dim Accmodule As Module
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Cible As String
Dim oAccess As New Access.Application
Dim oDb As DAO.Database
 
On Error GoTo fin
 
 
    With oAccess
        .Visible = False
        .OpenCurrentDatabase (pathbase)
        Set oDb = .CurrentDb
    End With
 
    For i = 1 To oAccess.VBE.VBProjects(1).VBComponents.Count
        With oAccess.VBE.VBProjects(1).VBComponents.Item(i).CodeModule
        ' pour le remplacement d'une ligne entière
            For k = 1 To .CountOfLines
                Cible = .Lines(k, 1)
 
 
                'If Left(Cible, 1) <> "'" Then
                If Len(Cible) = 0 Then
        oAccess.VBE.VBProjects(1).VBComponents.Item(i).CodeModule.DeleteLines k
 
 
 
                End If
            Next k
        End With
    Next i
 
    oDb.Close
    oAccess.DoCmd.Close , , acSaveYes
    Set oAccess = Nothing
    Set oDb = Nothing
    Liste_Procedures_Fonctions_VBA= True
Exit Function
 
fin:
    Liste_Procedures_Fonctions_VBA= False
    Resume Next
End Function

[Jean-Philippe André]

attention, si tu supprimes une ligne, il faut oter 1 de k en principe

je teste le resultat du code demain