Reproduire un userform

Tout est dans le titre !
Je voudrais savoir s'il est possible de copier un userform.
En fait mon problème est que j'ai un modèle de userform asez compliqué à reproduire une vingtaine de fois, et sue je n'ai pas envie de passer deux jours a tous les créer

L'autre solution serait d'utiliser des msgbox, mais il me faut pouvoir y inclure une image, des checkbox etc. et j'aurai besoin d'un bon tutoriel...

Quelqu'un a-t-il une idée ?

Merci d'avance

Bonjour à tous
Bonjour Amiral ( mes devoirs il me semble !!!! )

Si c'est juste pour recopier les différents "outils" de l'USF, faire :

Edition \ sélectionner tout et faire un coller sur une autre USF. Le code ne suit pas bien entendu. Il ne reste plus qu'à redimensionner l'USF.

Eric

Tu peux aussi exporter ton userform en tant que fichier, (clic droit dessus dans l'explorateur de projets)
Tu renomme le userform actuel, puis tu importes le userform sauvegardé.
Attention tu ne peux pas importer si tu n'as pas renommé le form initial.

PS : tu peux aussi renommer le fichier sauvegardé, mais la c'est une autre histoire, car il faut aussi faire des modif en édition notepad )

Si c'est dans le même projet:

Code:

---

1 2 3 4

Dim UF as UserForm1 Set UF = New UserForm1 UF.Caption = "Nouveau UserForm créé par code" UF.Show

---

À la fin du traitement, ne pas oublier de vider la variable objet dans une procédure de fermeture du fichier, par exemple (code dans ThisWorkbook)

Code:

---

1 2 3 4 5 6

Sub WorkBook_BeforeClose(params...) Dim F as UserForm For Each F In UserForms Unload F Next End Sub

---

aaah !

Merci à tous les trois pour ces idées !
Je vais essayer çà aujourd'hui, et vous donne des nouvelles...