Discussion :

[Thibaud123]

re, comme dit plus haut si plusieurs frames dans ton user precise la quelle frame tu testes!!!!


ton code

Code :

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

1
2
3
For i = 1 To 10
 If Frame1.Controls("OptionButton" & (i)) = True Then z = z + 1
Next i

ect...

Bonjour,

Je me permets de reprendre des informations de cette discussion car j'ai le même soucis. Le code fonctionne, mais en cas de plusieurs Frame, comment faire? Ca fonctionne pour une, mais j'en ai une 20aine, avec 4 optionbutton dans chaque...

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 Suivant1_Click()
Dim i As Byte, z As Byte
For i = 1 To 4
 If Frame2.Controls("OptionButton" & (i)) = True Then z = z + 1
Next i
If z = 0 Then
 Frame2.BorderColor = RGB(255, 0, 0)
        MsgBox "il manque des réponses "
 
Else
 
'suite code pour valider l'ensemble des questions et passage à l'userform suivant'
 
 
End If
 
 
End Sub

[Invité]

Bonsoir Thibaud123

Comme chaque OptionButton est indépendant des autres,
il suffit de supprimer l'objet frame dans le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Suivant1_Click()
  Dim i As Byte, z As Byte
  For i = 1 To 4
    If Controls("OptionButton" & (i)) = True Then z = z + 1
  Next i
  If z = 0 Then
    'BorderColor = RGB(255, 0, 0)
    MsgBox "il manque des réponses "
  Else
    'suite code pour valider l'ensemble des questions et passage à l'userform suivant'
  End If
End Sub

A+