Case d'option

Désolé mais je n'y arrive pas, j'ai mis un exemple en dessous avec 4 boutons, je voudrai que le 1 soit avec le 2 et le 3 soit avec le 4, que faut il changer !!!


Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
'Instructions si l' optionButton1 est activée
Else
'Instructions si l' optionButton2 est activée
End If

End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
'Instructions si l' optionButton2 est activée
Else
'Instructions si l' optionButton1 est activée
End If
End Sub

Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
'Instructions si l' optionButton3 est activée
Else
'Instructions si l' optionButton4 est activée
End If
End Sub

Private Sub OptionButton4_Click()
If OptionButton4.Value = True Then
'Instructions si l' optionButton4 est activée
Else
'Instructions si l' optionButton3 est activée
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Bon j'ai fini enfin par trouver la solution à mon problème !!!!!

Il faut en fait mettre dans Déclaration de la feuille :

OptionButton1.GroupName = "IPPD"
OptionButton2.GroupName = "IPPD"
OptionButton3.GroupName = "RP"
OptionButton4.GroupName = "RP"

Puis dans la propriété de chaque bouton rattacher le groupname à celui que l'on souhaite !!!

Merci à toi Choubaka !!

je reprend je vois pas ou est ce code !!!!

Pour completer ma réponse je suis sous VBA ou j'ai fait apparaitre mes boutons d'option mais pour l'instant il n'y a rien puisque je ne les pas encore rattacher à une macro.

Peut tu m'expliquer plus en détail !!!!

Salut

disons qu'à priori dans ce genre de manipulation, il faut travailler en code vba pour qu'il y ait interaction ..

ok mais est ce que tu peux m'indiquer comment rassembler 2 cases d'option sous VBA !!!