CODE POUR GROUPE D'OPTIONS CREE DYNAMIQUEMENT

Question

Bonjour,


Voilà, je souhaite créer dynamiquement un groupe d'options sur un formulaire EXCEL et qu'une fois crée chaque bouton option déclenche un évenement click  (code).
Je ne parviens pas à relier le bouton option au code correspondant
Merci par avance

ci-dessous mon code:
Dim option1001 As Object
Dim option1002 As Object


'-------------------------------------------
Private Sub CommandButton1_Click()


Set frame1000 = UserForm1.Controls.Add("forms.frame.1")


Set option1001 = frame1000.Add("forms.optionbutton.1")


Set option1002 = frame1000.Add("forms.optionbutton.1")
option1002.Top = option1001.Top + option1001.Height


option1001.Caption = "Ou"
option1002.Caption = "Et"


option1001.Name = "optA"
option1002.Name = "optB"


End Sub

'-------------------------------------------
Sub optA_click()


If Me.option1001 = True Then
MsgBox "ou"
End If


End Sub
'-------------------------------------------
Sub optB_click()


If Me.option1002 = True Then
MsgBox "et"
End If


End Sub

JM247L · Answer

Salut,
On est tout de suite plus à l'aise ici ... 
En cherchant tu devrais trouver un .OnAction = "NomDuSub"JML
 Partageons notre savoir et nos acquis

CODE POUR GROUPE D'OPTIONS CREE DYNAMIQUEMENT

1 réponse

Votre réponse

Discussions similaires