Evènement click sur Optionbutton créé dynamiquement en VBA
Bonjour,
Dans mon projet je créer à la volé dans un frame des Optionbutton auquel je passe une valeur. Je souhaiterais déclencher une action dès que je coche mon Optionbutton avant même de valider ma UserForm. Un simple msgbox de la valeur contenu dans la propriété TAG de mon Optionbutton coché me suffirait)
J'ai essayer plusieurs choses glané à droite et a gauche sur le net mais rien ne veux y faire.
Auriez-vous un bout de code a rajouter ?
Vous trouverez ci-dessous le code de ma sub de création de Optionbutton qui est appelée dans une boucle présent dans le même userForm.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
'
' Ajoute un radio ou un label
'
Private Sub ajouterElementArbre(typeElem, Left, topRadio, caption, Tag, cocher)
Dim Obj As Control
Dim Usf As Object
If typeElem = "label" Then
Set Obj = frameArbre.Controls.Add("forms.label.1")
Else
If ligneABloquerFusion(Tag) = False Then
Set Obj = frameArbre.Controls.Add("forms.Optionbutton.1")
If cocher = True Then
Obj.Value = True
End If
Else
Set Obj = frameArbre.Controls.Add("forms.label.1")
End If
End If
With Obj
.Name = "label" & Tag
.Object.caption = caption
.Left = Left
.Top = topRadio
.Width = 250
.Height = 14
.Tag = Tag
End With
End Sub
'Exemple d'appel
ajouterElementArbre "option", "150", "30", "Text de mon Optionbutton", 6, false |
Je vous remerci par avance
