VBA: conditions sur Checkbox et Optionbuton

Bonjour, je suis à la recherce des codes faisant:

SI plus de 2 checkbox dans une userform sont cochées ALORS MsgBox " ne selectionner qu'une seule case à cocher" puis exit sub

Dans le meme style:

SI aucun Optionbutton n'est selectionné ALORS MsgBox "seleccioner type de message" puis exit sub

Merci beaucoup, Bruno

Bonjour

Sans support

Private Sub CommandButton1_Click()
Dim I As Byte
Dim Nb As Byte

  For I = 1 To 2
    If Me.Controls("CheckBox" & I) = True Then Nb = Nb + 1
  Next I
  If Nb = 0 Then
    MsgBox "Veuillez sélectionner une case à cocher"
  ElseIf Nb > 1 Then
    MsgBox "Veuillez ne sélectionner q'une seule case à cocher"
  End If

  Nb = 0
  For I = 1 To 2
    If Me.Controls("OptionButton" & I) = True Then Nb = Nb + 1
  Next I
  If Nb = 0 Then
    MsgBox "Veuillez sélectionner un bouton d'option"
  End If

Merci tout bon comme d'habitude

Cdt, Bruno