Destruction userform

Bonjour chris

Une proposition à travers ce code :

Sub Supprimeuserform()
Dim nom As Object
For Each nom In ActiveWorkbook.VBProject.VBComponents
    If nom.Type = 3 Then
        ActiveWorkbook.VBProject.VBComponents.Remove nom
    End If
Next nom

End Sub

Cliquez pour agrandir...

Salut

Purement geniale.......Merci beaucoup !!!

Une autre question : comment t'y prendrais tu pour detruire un module ???

Encore merci.

Chris

Bonjour

dans cette macro, VBComponents est la collection des composants du projet VBA.

en recherchant le type de chaque composants, tu trouveras :

1 = module
2= module de classe
3=userform
100=feuilles (y compris thisworkbook)

donc en mettant : If nom.Type = 1 Then au lieu de If nom.Type = 3 Then, tu va détruire les modules.

Attention : Y compris le module ou se trouve ta macro !!!!

Si tu ne veux pas détruire le module ou se trouve cette macro, tu peux jouer sur nom.name='nomdumoduleàdetruire'.

Voilà

en espérant t'avoir aidé.

salut