marg55
XLDnaute Nouveau
Bonjour à tous,
j'ai créé un User Form sur lequel j'ai fait apparaître un bouton. J'aimerai pouvoir associer à ce bouton un événement mais ca ne fonctionne pas ! quelqu'un saurait me dire comme faire en sorte que mon évènement reconnaisse l'action de cliquer sur le bouton?
Mon programme est le suivant :
Public Multipage1 As MSForms.MultiPage
Private Sub UserForm_Initialize()
Set Multipage1 = Me.Controls.Add("Forms.MultiPage.1", "Multipage1")
With Multipage1
.Top = 175
.Left = 40
.Width = 1150
.Height = 475
End With
Set MyControl = Multipage1.Page1.Controls.Add("Forms.Label.1")
With MyControl
.Caption = "label"
.Left = 15
.Top = 25
.Width = 200
.Height = 25
.BorderStyle = 1
.FontSize = 10
End With
Set Control = Me.Controls.Add("Forms.CommandButton.1")
With Control
.Name = Bouton1
.Caption = "Valider"
.Top = 10
.Left = 40
.Width = 100
.Height = 50
.FontSize = 15
End With
End Sub
Private Sub Bouton1_Click()
MsgBox "Salut"
End Sub
j'ai créé un User Form sur lequel j'ai fait apparaître un bouton. J'aimerai pouvoir associer à ce bouton un événement mais ca ne fonctionne pas ! quelqu'un saurait me dire comme faire en sorte que mon évènement reconnaisse l'action de cliquer sur le bouton?
Mon programme est le suivant :
Public Multipage1 As MSForms.MultiPage
Private Sub UserForm_Initialize()
Set Multipage1 = Me.Controls.Add("Forms.MultiPage.1", "Multipage1")
With Multipage1
.Top = 175
.Left = 40
.Width = 1150
.Height = 475
End With
Set MyControl = Multipage1.Page1.Controls.Add("Forms.Label.1")
With MyControl
.Caption = "label"
.Left = 15
.Top = 25
.Width = 200
.Height = 25
.BorderStyle = 1
.FontSize = 10
End With
Set Control = Me.Controls.Add("Forms.CommandButton.1")
With Control
.Name = Bouton1
.Caption = "Valider"
.Top = 10
.Left = 40
.Width = 100
.Height = 50
.FontSize = 15
End With
End Sub
Private Sub Bouton1_Click()
MsgBox "Salut"
End Sub