Discussion :

[dgwww]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe PONS]

Salut,


tu devrais lire le fil: Detecter le control d'un Userform sur clic
juste en dessous.
Les experts du forum traitent ce même problème!
Cordialement,

[Invité]

Bonjour,
Pour information ça ne sert à rien de tester un booléen pour accorder la même valeur à un autre booléen!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'If cocher = True Then
                'Obj.Value = True
           ' End If
Obj.Value =cocher

[dgwww]

Salut,


tu devrais lire le fil: Detecter le control d'un Userform sur clic
juste en dessous.
Les experts du forum traitent ce même problème!
Cordialement,

Bonsoir,
Merci pour votre retour je vais voir leur sujet et essayer de l'adapter a mon cas si faisable

Bonjour,
Pour information ça ne sert à rien de tester un booléen pour accorder la même valeur à un autre booléen!

C'est pas faut en effet
Merci