Module et module de classe vides

Y

Yvon

Guest
Bonjour à tous

Dans l'explorateur VBA, j'ai une rafale de modules et de modules de classe qui sont vides de toutes macros peut on les supprimer sans risques pour faire de la visibilité?

Merci de votre réponse

bonne journée
a++
Yvon
 

MichelXld

XLDnaute Barbatruc
bonjour Yvon , bonjour Pascal

un exemple par macro , pour supprimer les modules standards vides

Sub supprimerTousModulesVides()
Dim vbComp As Object
Dim i As Long, j As Long

For Each vbComp In ActiveWorkbook.VBProject.VBComponents
If vbComp.Type = 1 Then
i = vbComp.CodeModule.CountOfDeclarationLines + 1
j = vbComp.CodeModule.CountOfLines
If j < i Then ActiveWorkbook.VBProject.VBComponents.Remove vbComp
End If
Next
End Sub




bonne soiree
MichelXld
 

Discussions similaires

Réponses
29
Affichages
1 K

Statistiques des forums

Discussions
312 812
Messages
2 092 309
Membres
105 352
dernier inscrit
Djianik