Tester la validation d' un bouton de controle dans un formulaire

Private Sub CommandButton1_Click()
'Tester si un ces critère est validé
For Each X In UserForm1.Frame1.Controls
 If X.Value = True Then coché = X.Name: Exit For
Next
If coché = "" Then
 MsgBox "Merci d'indiquer l'origine de l'incident " & Application.UserName
 UserForm1.Frame1.SetFocus
Else
 Range("a65536").End(xlUp).Offset(0, 1).Value = coché
End If
End Sub