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
René
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
Partager