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

[zazaraignée]

Histoire de donner une réponse plus pointue, suite à tous les commentaires postés à date...

J'écris mon raisonnement en pseudo-code...

Code pseudo :

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
Si les OptionButtons sont sur une feuille de calcul alors
    S'il s'agit de composants provenant de la barre d'outils Formulaires alors
        Pour éviter que les différents groupe d'options n'agisse comme un seul,
        après plusieurs tests et même si j'ai bien cru avoir trouvé un solution,
        Hé! bin non! c'est pas possible.
      Sinon s'il s'agit des OptionButton de la boîte d'outils Contrôles alors
        Il faut afficher la fenêtre Propriétés
        Répéter pour chaque groupe d'OptionButton
            Sélectionner tous les composants d'un groupe
            Attribuer une valeur (autre que celle par défaut) à la propriété GroupName.
            ou
            Les mettre dans un conteneur, un Frame, par exemple.
        'fin répétition
    'fin Si
  Sinon s'il s'agit d'OptionButton sur un UserForm alors
    Attribuer à chaque groupe d'OptionButton un GroupName 
    ou
    Les placer dans des conteneurs différents. Les Frames sont parfaits pour ça. 
'fin Si

Ceci dit... Question :

Tu veux activer une option d'un autre groupe selon telle ou telle option activée dans le premier groupe ? J'ai bien compris ou je suis à côté de mes pompes ?

[muska78]

Merci à tous pour vos réponses!
J'ai trouvé la solution. Il fallait que j'indique la feuille où était situé mes option boutons. Car un groupe de option bouton faisait référence à un autre groupe de OB situé sur une autre feuille:

Code :

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

1
2
If OB1 = True Then
    Worksheets("Notes").OBBat3 = True