VBA Répérer les OptionButton sélectionnés

Question

Cette manip pourra paraître un peu bête ... Mais je me dis qu'il y a bien une astuce simple Je met une image car elle suffira, j'ai pas de code en particulier à montrer, le fichier est assez gros maintenant x) Alors voilà, j'ai 2 GroupBox. Dans ces 2 GB, des OptionButton. On ne peut donc en sélectionner qu'1 par group box (c'est le principe ) Je cherche à faire une condition qui vérifie qu'au moins 1 OptButton est sélectionné dans chaque GroupBox. Ex: "Si au moins 1 OptButton est coché dans GB1 et GB2, alors tadam" Ensuite je cherche aussi à identifier ces OptButtons sélectionnés. Ex: "Si un OptButton est sélectionné, alors attribuer son nom à la variable X" Sans avoir à faire une nombre de if affolant ... Merci pour votre aide ...

galopin01 · Answer

Une possibilité en pièce jointe. A+...

ThauThème · Answer

Bonjour Dez, Galopin, bonjour le forum :

Un exemple à adapter (vu que tu n'as pas daigné fournir le fichier...) :

Private Sub UserForm_Terminate()
Dim CTRL As Control
Dim T1 As Boolean
Dim T2 As Boolean
Dim N1 As String
Dim N2 As String

For Each CTRL In Me.Frame1.Controls
    If CTRL.Value = True Then
        T1 = True
        N1 = CTRL.Caption
        Exit For
    End If
Next CTRL
For Each CTRL In Me.Frame2.Controls
    If CTRL.Value = True Then
        T2 = True
        N2 = CTRL.Caption
        Exit For
    End If
Next CTRL
MsgBox IIf(N1 = "", "Aucune option choisie pour la catégorie !", "L'option choisie de la catégorie est : " & N1)
MsgBox IIf(N2 = "", "Aucune option choisie pour la gamme !", "L'option choisie de la gamme est : " & N2)
If T1 = True And T2 = True Then MsgBox "les deux groupes ont une option choisie ! Tadam..."
End Sub