Boutons d'option

Private Sub CommandButton1_Click()
Dim ctrl As Control 'déclare la variable ctrl (ConTRôLe)
Dim nb As Byte 'déclare la variable nb (NomBre)

For Each ctrl In Me.Controls 'boucle sur tous les contrôle de l'UserForm
    If TypeOf ctrl Is MSForms.OptionButton Then 'condition : si le contrôle est un bouton d'option
        If ctrl.Value = True Then nb = nb + 1 'si le contrôle est activé, incrémente la variable nb
    End If 'fin de la condition
Next ctrl 'prochaine contrôle de la boucle
If nb = 0 Then 'condition 1 : si nb vaut zéro
    MsgBox "Aucun bouton d'option n'a été activé !" 'message (tu remplaceras par ton code)
Else 'sinon (condition 1)
    'si tu n'as qu'un seul "GroupName" le "Esle" n'est pas néessaire
    If nb = 1 Then 'condition 2 : si nb vaut 1
        MsgBox "1 bouton a été activé !" 'message
    Else 'sinon (condition 2)
        'si tu as plusieurs "GroupName"
        MsgBox nb & " boutons ont été activés !" 'message
    End If 'fin de la condition 2
End If 'fin de la condition 1
End Sub