Discussion :

[NEC14]

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é

[Daniel.C]

Bonjour,

Ils sont où, les boutons ? sur une feuille ou sur un userform ?

[NEC14]

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

[EngueEngue]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nibledispo]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[PMO2017]

Bonjour,

Une piste avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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