Discussion :

[muska78]

Bonjour je suis débutant, voici mon problème:
j'ai 2 groupes de 2 option bouton. Lorsque je clique sur un option bouton du groupe 1, je voudrai remplir automatiquement un option bouton du groupe 2. Est ce possible?
OB1, OB2 = groupe 1
OB3, OB4 = groupe 2
j'ai fais ce code mais ça ne fonctionne pas:

Code :

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

1
2
3
4
5
Private Sub OB1Click()
If OB1 = True Then
OB4 = True
End If
End Sub

merci d'avance

[fring]

Bonjour et ouelcom

Une petite question avant, tes OptionButton sont sur la feuille ou sur un UserForm ?

[patbou]

bonjour

Code :

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

1
2
3
4
 
Private Sub opt1_Click()
opt4.Value = True
End Sub

[OrDonc]

Bonsoir,

Fring a raison de poser la question !
Si les cases à option sont dans la feuille, qu'elle soient groupées ou non, une seule sera cochée.
Dans ce cas, tu as peut-être intérêt à choisir des cases à cocher.

Si elles sont dans un Userform et dans 2 Frames différentes alors ton code, simplifié par patbou, peut convenir.

[ucfoutu]

Bonjour,

Juste pour le cas où, finalement, ce qui est recherché est une synchronisation dans les deux sens...

1) je privilègierais une correspondance dans le même ordre des 2 côtés (OB1 avec OB3 et OB2 avec OB4)
ce qui me permettrait d'écrire de manière plus agile, quelque chose du genre :

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
20
21
22
23
24
25
26
27
Private Sub OB1_Click()
 vasy ActiveControl
End Sub
 
Private Sub OB2_Click()
 vasy ActiveControl
End Sub
 
Private Sub OB3_Click()
 vasy ActiveControl
End Sub
 
Private Sub OB4_Click()
 vasy ActiveControl
End Sub
 
Private Sub vasy(ctrl As Control)
  Dim quid As Integer, couic As Integer
  quid = Val(Right(ctrl.Name, 1))
  Select Case quid
    Case Is < 3
     couic = 2
    Case Else
     couic = -2
   End Select
   Controls("OB" & (quid + couic)) = ctrl.Value
End Sub