CODE POUR GROUPE D'OPTIONS CREE DYNAMIQUEMENTRésolu

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 · Accepted Answer

Ho grand DarkSidious pardonnes lui cette erreur de jeunesse ... Il semble qu'il ait ré-ouvert à la bonne adresse

JML
 Partageons notre savoir et nos acquis

jrivet · Answer

Salut,
Si DarkSidious passe par là tu risque de te faire allumer... je te dis que cela...

@+: Ju£i?n
Pensez: Réponse acceptée

sgtdaf · Answer

Pourquoi ?

CODE POUR GROUPE D'OPTIONS CREE DYNAMIQUEMENT

3 réponses

Votre réponse

Discussions similaires