Discussion :

[Amiral19]

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

[edelweisseric]

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

[jfontaine]

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 )

[zazaraignée]

Si c'est dans le même projet:

Code :

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

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 :

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

1
2
3
4
5
6
Sub WorkBook_BeforeClose(params...)
    Dim F as UserForm
    For Each F In UserForms
        Unload F
    Next
End Sub

[Amiral19]

aaah !

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