Discussion :

[pomdeterfrite]

Bonjour à tous,

Je cherche désespérément à afficher certains label si et seulement si mes 30 groupes de radio buttons ont été cliqués. J'ai donc trouvé et essayé le code suivant pour les 2 premiers groupes.

Mais il ne fonctionne que pour un groupe. Je ne sais pas comment m'y prendre pour qu'il tienne compte de tous les groupes...

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
Private Sub CommandButton2_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é "GR1"
             If Ctrl.GroupName = "Group1" And Ctrl.Value = True Then
                If Ctrl.GroupName = "Group2" And Ctrl.Value = True Then
                    MsgBox "ok"
                    '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

Merci d'avance !!

[Philippe Tulliez]

Bonjour,
Dans ta boucle, la variable objet Ctrl représente un objet et un seul. Il ne peut donc pas à la fois faire partie du GroupName group1 et group2.
Ton test ne sera donc jamais valide.

[mercatog]

Bonjour
Une proposition

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
Private Sub CommandButton2_Click()
Dim Ctrl As Control
Dim i As Byte
 
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.OptionButton Then
        If Val(Replace(Ctrl.GroupName, "Group", "")) > 0 And Ctrl.Value Then i = i + 1
    End If
Next Ctrl
If i = 30 Then
    MsgBox "OK"
Else
    MsgBox i & " groupes d'options cliqués"
End If
End Sub

Edit: Parfois on se complique la vie. Ci joint, code modifié.

[pomdeterfrite]

Super merci beaucoup ca fonctionne !!