Détecteur de procédures et fonctions inutilisées
Soyez le premier à donner votre avis sur cette source.
Vue 9 979 fois - Téléchargée 440 fois
Description
Cette fonction permet de déterminer pour chaque module les procédures et fonctions qui ne sont pas appelées à partir des formulaires et états et/ou des autres modules dans une base Access
Pré-requis :
- Il faut que le fichier à vérifier soit un mdb
- Dans la base à vérifier référencer la bibliothèque "Visual Basic for Applications Extensibility 5.3"
- Importer la table "TR_ObjetNonTrouve"
- Importer la macro "Rechercher les objets inutiles dans la base"
- Importer le module "RechercheObjetDansBase"
- Lancer la macro "Rechercher les objets inutiles dans la base"
Les résultats seront inscrits dans la table "TR_ObjetNonTrouve"
Pré-requis :
- Il faut que le fichier à vérifier soit un mdb
- Dans la base à vérifier référencer la bibliothèque "Visual Basic for Applications Extensibility 5.3"
- Importer la table "TR_ObjetNonTrouve"
- Importer la macro "Rechercher les objets inutiles dans la base"
- Importer le module "RechercheObjetDansBase"
- Lancer la macro "Rechercher les objets inutiles dans la base"
Les résultats seront inscrits dans la table "TR_ObjetNonTrouve"
Source / Exemple :
Public Function RechercheFonctionDansModule()
'Cette fonction permet de savoir si des fonctions sont utilisées ou non
Dim Momo1 As Module, Momo2 As Module, Nom_Fx As String, Cur_Ligne As Long, Ligne_en_cours As String, Lignes_Fx As Long, Drapeau_Fx As Boolean
Dim Forme As Form, Etat As Report, Reponse As Byte
Dim Fx() As String, a As Integer, b As Integer, c As Long, d As Long
'FX permet d'énumérer le nom des fonctions et procédures des modules.
'Sa structure est la suivante
'La première dimension indique le nom de la fonction ou procédure
'La seconde le nom du module et de la fonction
'La troisième si celle-ci a été trouvée dans un autre module
'Exemple Fx(0,0)="Florent":Fx(1,0)=False
On Error GoTo Erreurs:
Reponse = msgbox("Désirez-vous lancer la recherche des fonctions des modules" & vbCrLf & "- Sur les formulaires, états ET modules [Oui]" & _
vbCrLf & "- Uniquement les formulaires et états [Non] ?", vbYesNo, "Type de recherche des fonctions")
DoCmd.Hourglass True
Drapeau_Fx = False: ReDim Fx(2, 1): c = 0
'On ouvre tous les modules
For a = 0 To CurrentProject.AllModules.Count - 1
DoCmd.OpenModule CurrentProject.AllModules(a).Name
Next a
For a = 0 To CurrentProject.AllModules.Count - 1
Set Momo1 = Modules(CurrentProject.AllModules(a).Name)
With Momo1
Drapeau_Fx = False
'On détermine le nom des fonctions et procédures
For Cur_Ligne = .CountOfDeclarationLines + 1 To .CountOfLines
If Drapeau_Fx = False And UCase(.Lines(Cur_Ligne, 1)) Like "*SUB*(*)*" _
Or UCase(.Lines(Cur_Ligne, 1)) Like "*FUNCTION*(*)*" Then
'On insère le nom de la procédure ou fonction et on redimensionne le tableau
Fx(0, c) = .ProcOfLine(Cur_Ligne, vbext_pk_Proc): Fx(1, c) = "Module " & .Name & "=>" & .ProcOfLine(Cur_Ligne, vbext_pk_Proc): Fx(2, c) = False
'On passe à la suite
Cur_Ligne = Cur_Ligne + .ProcCountLines(Fx(0, c), vbext_pk_Proc) - 1
'-1 car .ProcCountLines positionne le curseur sur la dernière ligne de la fonction
'Mais, par le Next Cur_Ligne qui suit on loupe la ligne de la fonction suivante
'si on ne décrémente pas de 1
c = c + 1
ReDim Preserve Fx(2, c)
Drapeau_Fx = True
Else
Drapeau_Fx = False
End If
Next Cur_Ligne
If Reponse = vbNo Then GoTo 8
'On regarde dans tous les autres modules pour voir si cette fonction ou procédure est appelée
For b = 0 To CurrentProject.AllModules.Count - 1 'Dans les autres modules
Set Momo2 = Modules(CurrentProject.AllModules(b).Name)
With Momo2
DoCmd.OpenModule .Name
If .Name <> Momo1.Name Then
For d = 0 To UBound(Fx, 2) - 1
Do While Fx(2, d) = True 'Pour accélérer le parcours du tableau FX
d = d + 1
If d = UBound(Fx, 2) Then
d = d - 1
Exit Do
End If
Loop
If InStr(.Lines(.CountOfDeclarationLines, .CountOfLines), Fx(0, d)) > 0 And Fx(2, d) = False Then Fx(2, d) = True
Next d
End If
End With
Next b
8 For b = 0 To CurrentProject.AllForms.Count - 1 'Dans les formulaires
DoCmd.OpenForm CurrentProject.AllForms(b).Name, acDesign
Set Forme = Forms(CurrentProject.AllForms(b).Name)
With Forme
For d = 0 To UBound(Fx, 2) - 1
Do While Fx(2, d) = True 'Pour accélérer le parcours du tableau FX
d = d + 1
If d = UBound(Fx, 2) Then
d = d - 1
Exit Do
End If
Loop
If InStr(.Module.Lines(.Module.CountOfDeclarationLines, .Module.CountOfLines), Fx(0, d)) > 0 And Fx(2, d) = False Then Fx(2, d) = True
Next d
DoCmd.Close acForm, .Name, acSaveNo
End With
Next b
For b = 0 To CurrentProject.AllReports.Count - 1 'Dans les états
DoCmd.OpenReport CurrentProject.AllReports(b).Name, acViewDesign
Set Etat = Reports(CurrentProject.AllReports(b).Name)
With Etat
For d = 0 To UBound(Fx, 2) - 1
Do While Fx(2, d) = True 'Pour accélérer le parcours du tableau FX
d = d + 1
If d = UBound(Fx, 2) Then
d = d - 1
Exit Do
End If
Loop
If InStr(.Module.Lines(.Module.CountOfDeclarationLines, .Module.CountOfLines), Fx(0, d)) > 0 And Fx(2, d) = False Then Fx(2, d) = True
Next d
DoCmd.Close acReport, .Name, acSaveNo
End With
Next b
End With
10 Next a
'Arrivé à ce stade, toutes les valeurs Fx(1,x) en False signifient que les procédures et fonctions F(0,x) ne sont sollicitée nulle part
'On les écrit dans la table
For a = 0 To UBound(Fx, 2) - 1
If Fx(2, a) = False Then DoCmd.RunSQL "INSERT INTO TR_ObjetNonTrouve (Type,Nom) VALUES('FUNCTION ou SUB','" & Fx(1, a) & "')"
Next a
'On ferme tous les modules
For a = 0 To CurrentProject.AllModules.Count - 1
DoCmd.Close acModule, CurrentProject.AllModules(a).Name, acSaveNo
Next a
DoCmd.Hourglass False
Exit Function
Erreurs:
If Err.Number = 7784 Then
'Erreur qui signifie qu'un sous formulaire a déja été ouvert par un formulaire
Resume Next
ElseIf Err.Number = 17 Then 'On ne peut pas fermer ce module car il n'a pas fini d'exécuter la fonction
Resume Next
Else
msgbox Err.Description, vbCritical, "Erreur N° " & Err.Number
Resume Next
End If
End Function
Codes Sources
A voir également
- Détecteur de procédures et fonctions inutilisées
- Procédures et fonctions - Codes sources - Visual Basic / VB.NET (Divers)
- Appel de procédure ou fonction dans Case Of ✓ - Forum - Delphi / Pascal
- Appel de procedure en fonction du nom stocké dans un champ de table ✓ - Forum - Visual Basic
- Fonctions & procédures traitant le registre - Codes sources - Delphi / Pascal (Base de registre)
- Ce programme permet d'afficher les fonctions et procédures contenues dans les sources d'un programme - Codes sources - Delphi / Pascal (Fichier / Disque)
Du même auteur (cs_8Tnerolf8)
-
Recherche d'une chaine de caractères sans tenir compte de l'ordre des mots dans les chaines de caractères
-
Trieur de tableau sur plusieurs colonnes
-
Classe d'objet de cryptage et décryptage de chaines de caractères
-
Classe d'objet de générateur de mail outlook avec mise en forme via une syntaxe html
-
Démon d'écoute
Merci pour ta note et tes commentaires.
Concernant MZTools, il est effectivement super, mais, d'après ce que j'en ai vu, ma fonction est complémentaire à cette application.
En effet, s'il détecte les variables locales inutilisées au sein des fonctions et procédures, je n'ai pas vu une équivalence égale à ce que fait "RechercheFonctionDansModule".
Moi aussi je suis développeur entre autre sur Access. J'utilise MzTools aussi et depuis longtemps. Il nous rend de nombreux services. N'empêche que le prog que tu as pondu est super, et comme le Grand Jack, je te remercie et te donne 9 pour cet envoi.
À ce propos, si Nix lit ce message, il serait peut-être envisageable d'avoir une partie de dev. spécifiquement en VBA pour Access. Personnellement, beaucoup d'utilisateurs de mes programmes me demandent de leur expliquer comment faire de petits programmes. Enfin, ce n'est qu'une suggestion.
Merci encore à toute l'équipe, et à tous les contributeurs.
Merci pour ton tuyau pour MZ Tools, je ne le connaissais pas.
Je vais de ce pas aller le récupérer.
J'ai écrit cette fonction dans deux buts :
- Devant rédiger une documentation technique d'une appli que j'ai développé, je voulais réduire au maximum ma rédaction en élaguant le code inutile.
- Je voulais me faire la main sur les propriétés et méthodes des modules dans Access.
- Messages postés
-
14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
73- Messages postés
-
14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
73Je ne voudrais pas te sapper le moral, mais "MzTools pour VBA" fonctionne sous Access et possède cet outil de recherche parmi la cinquantaine qu'il renferme.
Dispo ici : http://logiciel.codes-sources.com/logiciels/MzTools-233.aspx#
Malgré tout, je trouve ta méthode de résolution de ce problème très poussée et bien commentée. 8/10
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.