Discussion :

[tomy7]

bonjour,
j ai cree un userform en trop ds mon projet et je voudrai le supp .

je suis sous excel 2003 en anglais.

une idee si c est possible de le sup sans utiliser de macro ?

merci

[fring]

Bonjour,

Etrange la question...mé bon

Alt+F11 puis...



@+

[tomy7]

c est juste que je voulais trouver ou c etait.

merci, chez moi c est "remove"

[srame]

Et au cas ou, par VBA quand même....
Un petit truc qui marche chez moi mais qui n'est pas parfait parce que dans certaines conditions, l'effacement du premier UserForm ne se fait que à la fin de l'exécution de la macro. Je ne sais pas pourquoi. Faudrait pouvoir mettre un refresh mais j'ai pas trouvé comment.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub DelTousLesUserForm()
    ' SUPPRESSION DE TOUS LES USERFORM
        Dim USF
        For Each USF In ActiveWorkbook.VBProject.VBComponents
           If USF.Type = 3 Then
               With ActiveWorkbook.VBProject.VBComponents
                   .Remove .Item(USF.Name)
               End With
            End If
        Next USF
End Sub

Voilà.

Srame