Private Sub CheckBox1_Click()
ComboBox1.Text = "HELLO !"
End Sub
Private Sub ComboBox1_Change()
Me.OptionButton1.Value = True
End Sub
Private Sub CommandButton1_Click()
Dim Frm As MSForms.UserForm
Dim ctrl As Controls
Dim fm As Controls
Set Frm = Me
Set ctrl = Me.Controls
ctrl.Copy
Call copier
UserForm2.Show
UserForm2.Paste
End Sub
Private Sub ListBox1_Click()
ListBox1.AddItem "HELLO BOY !"
End Sub
Private Sub OptionButton1_Click()
TextBox1 = "C'EST OK !"
End Sub
Private Sub TextBox1_Change()
MsgBox "BYE !"
End Sub
Sub copier()
'Active la référence Microsoft Visual Basic Extensibility
Dim strCode As String
Dim vbCom As VBComponent
Dim modObj As Object
Set modObj = _
Application.VBE.ActiveVBProject.VBComponents.Item("UserForm1")
strCode = modObj.CodeModule.Lines(1, modObj.CodeModule.CountOfLines)
Application.VBE.ActiveVBProject.VBComponents.Add (vbext_ct_StdModule)
Application.VBE.ActiveVBProject.VBComponents.Item("UserForm2") _
.CodeModule.AddFromString (strCode)
End Sub