Module et module de classe vides

PascalXLD

XLDnaute Barbatruc

Modérateur

• 3 Novembre 2005

• #2

Bonjour

Oui sans problème (s'ils sont bien vides )

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 3 Novembre 2005

• #3

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

 

Vote positif 0 Vote négatif

Y

Yvon

Guest

• 3 Novembre 2005

• #4

Merci à tous les deux de vos réponses, Michel peut tu m'expliquer l'intéret de les supprimés via une macro,......

Bonne soirée

a++
Yvon

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 3 Novembre 2005

• #5

rebonsoir

pour les supprimer en une seule fois et de façon automatisée...


bonne soiree
MichelXld

 

Vote positif 0 Vote négatif

Y

Yvon

Guest

• 3 Novembre 2005

• #6

Ok j'achète le concept, cela me plait bien finalement..

Merci beaucoup
a++
Yvon

 

Vote positif 0 Vote négatif