Simplification ligne de code

Version imprimable

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:

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é

23/09/2013, 15h49
Daniel.C

Bonjour,

Ils sont où, les boutons ? sur une feuille ou sur un userform ?
23/09/2013, 15h51
NEC14

Dans un UF. J'aurai du le préciser.
Désolé

Pour ton exemple c'est inutile mais quand tu as bien plus de conditions, cela peut s'avérer intéressant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
variable = Array(False, False, False, False)
test = Array(OptionButton1.Value, OptionButton2.Value, OptionButton3.Value, OptionButton4.Value)
 
Condition = True
For i = 0 To 3
If variable(i) <> test(i) Then
Condition = False
End If
Next i
 
If Condition = True Then
MsgBox ("Hello")
End If

simplification ligne de code

Bonjour

à supposer que ce soit plus simple et que ça marche, cela peut-il convenir ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CmbOk_Click()
Dim vRep As String
    Opt = ""
    For i = 1 To 8
        Opt = Opt + "OptionButton" & i & ".Value = False And "
    Next i
    opt = left(opt,len(opt)-4)
    If Opt = False Then
       vRep = MsgBox("Vous devez impérativement faire votre choix !", vbOKOnly + vbInformation)
       Exit Sub
    End If
End Sub

Cordialement.

Bonjour,

Une piste avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CmbOk_Click()
Dim vRep As String
If OptionButtonVrai = False Then
    vRep = MsgBox("Vous devez impérativement faire votre choix !", vbOKOnly + vbInformation)
    Exit Sub
End If
End Sub
 
Private Function OptionButtonVrai() As Boolean
Dim C As Control
For Each C In Me.Controls
  If TypeName(C) = "OptionButton" Then
    If C Then
      OptionButtonVrai = True
      Exit For
    End If
  End If
Next C
End Function

24/09/2013, 10h25
NEC14

Bonjour,

Merci beaucoup pour vos propositions. J'ai retenu celle de PMO2017.

Amicalement
René :ccool: