OptionButton : question de débutant

[pepparkakor]

Bonjour,
Je voudrais savoir s'il est possible sur un même usf de créer des "groupes" d'OptionButton.
L'idée est d'avoir la possibilité de cocher un des 2 optionbutton de mon premier groupe et un des 3 optionbutton de mon 2è groupe (mais tout ça sur le même usf)
Merci d'avance pour votre aide !

 

[Pierrot93]

Re : OptionButton : question de débutant

Bonjour pepparkakor,

pour cela tu as au moins 2 solutions, la première tu mets le groupe d'OptionButton dans un cadre (controle "frame") ou tu utilises la propriété "GroupName" de l'optionbutton.

bon après midi
@+

 

[Staple1600]

Re : OptionButton : question de débutant

Bonjour pepparkakpr, Pierrot93, le fil, le forum


message edité

nouveau fichier plus haut dans le fil.

 

[Dull]

Re : OptionButton : question de débutant

Salut pepparkakor, Pierrot 🙂,Stapple 🙂, le Forum 🙂

sur le Fichier de Stapple Avec GroupName 😀

Bonne Journée

 

[Staple1600]

Re : OptionButton : question de débutant

Re, bonjour Dull


Je vois pas dans tes modifs l'utilisation de GroupName

ou alors je suis pas réveillé

Sub f3dopt()
OptionButton3.Enabled = False
OptionButton4.Enabled = False
OptionButton5.Enabled = False
Label1.Caption = ""
End Sub
Sub f3dopt2()
OptionButton1.Enabled = False
OptionButton2.Enabled = False
Label1.Caption = ""
End Sub

 

[Pierrot93]

Re : OptionButton : question de débutant

Re, bonjour Staple, Dull

@Staple
comprends pas trop ton code, le simple fait de mettre plusieurs "optionbutton" dans un "frame" doit suffire à les rendre solidaires, c'est à dire si 1 prend la valeur "true" les autres se mettent automatiquement à "false".

bonne soirée
@+

Edition aarf j'ai été trop vite, tu les désactives sur click sur le frame... autant pour moi, désolé...

 

[Staple1600]

Re : OptionButton : question de débutant

Re

message édité:
nouveau fichier plus haut dans le fil
(avec 2 userform celui de Dull, et le mien)



J'essaye d'integrer ce code
mais je bloque pour le moment, car le code ci-dessous ne prend en compte que le GroupName1)
(Puisque Dull a utlisé des GroupName : 1 et 2)

Private Sub CommandButton1_Click()
[U]'[URL="http://silkyroad.developpez.com/VBA/ControlesUserForm/"]Source du code[/URL][/U]
    Dim Ctrl As Control
         
    'Boucle sur tous les contrôles
    For Each Ctrl In Me.Controls
        'Vérifie qu'il s'agit d'un OptionButton
        If TypeOf Ctrl Is MSForms.OptionButton Then
            'Véfifie si l'OptionButton fait partie d'un groupe nommé "1"
             If Ctrl.GroupName = "1" Then
                'Affiche le Caption de l'optionButton qui a la valeur True
                If Ctrl.Value = True Then
                    MsgBox Ctrl.Caption
                    'Sort de la boucle (Il ne peut y a voir qu'une
                    'réponse à True)
                    Exit For
                End If
            End If
        End If
    Next
End Sub

 

[Pierrot93]

Re : OptionButton : question de débutant

Re

dans la fenêtre propriétès des "optionbuttons", "goupname" est égal à 1 ou 2 dans le fichier de Dull...

 

[Staple1600]

Re : OptionButton : question de débutant

Re


Voici une dermière mouture qui utilise GroupName

(dans une fonction personnalisée VBA)



PS: Merci de l'info Pierrot93, j'avais bien remarqué les 1 et 2 (GroupName)
mais le code du précédent message ne fonctionne tel quel qu'avec une seul GroupName et ma difficulté était d'inclure un test sur le 2ème GroupName.

 

[Pierrot93]

Re : OptionButton : question de débutant

Re Staple

pour inclure le test sur les 2 groupes, à partir de ton premier code, enlever le "exit for" et ajout d'un "elseif" :

Private Sub CommandButton1_Click()
    Dim Ctrl As Control
    'Boucle sur tous les contrôles
    For Each Ctrl In Me.Controls
        'Vérifie qu'il s'agit d'un OptionButton
        If TypeOf Ctrl Is MSForms.OptionButton Then
            'Véfifie si l'OptionButton fait partie d'un groupe nommé "1"
             If Ctrl.GroupName = "1" Then
                'Affiche le Caption de l'optionButton qui a la valeur True
                If Ctrl.Value = True Then
                    MsgBox "grpname 2 à true =" & Ctrl.Caption
                End If
                ElseIf Ctrl.GroupName = "2" Then
                    'Affiche le Caption de l'optionButton qui a la valeur True
                    If Ctrl.Value = True Then
                         MsgBox "grpname 2 à true =" & Ctrl.Caption
                    End If
            End If
        End If
    Next
End Sub

bonne soirée
@+