Bonjour à tous,

J'ai tapé ce code, mais il me parait fastidieux, est-ce qu'il y a moyen de le réduire et comment ?

Je vous remercie par avance pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CmbOk_Click()
Dim vRep As String
 
    If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False And OptionButton4.Value = False And OptionButton5.Value = False And OptionButton6.Value = False And OptionButton7.Value = False And OptionButton8.Value = False Then
        vRep = MsgBox("Vous devez impérativement faire votre choix !", vbOKOnly + vbInformation)
        Exit Sub
    End If
 
[etc...]
End Sub
René