Private Sub OKButton_Click()
Dim r As Long
Dim x As Control
For Each x In Me.Frame1.Controls
If x.Object.Value = False Then
MsgBox "Veuillez selectionner un choix dans" & " " & Frame1.Caption, vbExclamation, strAppName
Else
Exit For
End If
Next x
For Each x In Me.Frame2.Controls
If x.Object.Value = False Then
MsgBox "Veuillez selectionner un choix dans" & " " & Frame2.Caption, vbExclamation, strAppName
Else
Exit For
End If
Next x
Unload Me
End Sub