Destruction userform

[chris.]

Bonjour à tous,

Je me trouve confronté à un probleme.

Il faut que je detruise tous les userform de ma macro, en appuyant sur un bouton...

Quelqu'un ppourait il me guider ???

Merci

Chris.

 

[Hervé]

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

Salut

 

[chris]

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

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

Encore merci.

Chris

 

[Hervé]

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