CODE POUR GROUPE D'OPTIONS CREE DYNAMIQUEMENT

Signaler
Messages postés
3
Date d'inscription
lundi 3 septembre 2007
Statut
Membre
Dernière intervention
6 septembre 2007
-
Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
-
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


 

1 réponse

Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
2
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