Discussion :

[DebutVBA56]

Comme je ne trouvais pas comment dissocier des groupes d'OptionButton sur une même feuille Excel, j'ai décider d'utiliser des CheckBox gérées par des macros.


Enregistreé en Objet de ma feuille excel

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CheckBox1_Click()
    Macro26
End Sub
Private Sub CheckBox2_Click()
    Macro27
End Sub
Private Sub CheckBox3_Click()
    Macro28
End Sub

Enregistré en macro

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
Sub Macro26()
    If Sheets("Création").CheckBox1.Value = True Then
       Sheets("Création").CheckBox2.Value = False
       Sheets("Création").CheckBox3.Value = False
    End If
End Sub
 
Sub Macro27()
       Sheets("Création").CheckBox1.Value = False
       Sheets("Création").CheckBox3.Value = False
    End If
End Sub
 
Sub Macro28()
    If Sheets("Création").CheckBox3.Value = True Then
       Sheets("Création").CheckBox1.Value = False
       Sheets("Création").CheckBox2.Value = False
    End If
End Sub

[Vba14]

Bonjour,

Et quelle est la question ? De quelle façon pouvons-nous te venir en aide ?

[patricktoulon]

re
bonjour
il est ou ton soucis avec les optionbutton
tu n'a pas besoins de code pour ca

il te suffit
de te mettre en mode création
sélectionner tout les optionbutton dont tu veux qu'il soit interchangeable
et dans les propriété des optionbutons selectionné a gauche dans vbe mette un nom a la propriété "GroupName"
et basta
demo
comme tu peux le voir ceux de droite de sont pas interactifs avec ceux de gauche

[boisgontierjacques]

Bonjour,

Une façon simple de faire des cases d'option avec des ListBox (ou de cases à cocher)

Code :

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

1
2
3
4
5
6
7
Private Sub ListBox1_GotFocus()
    Me.ListBox1.List = Array("aa", "bb", "cc", "dd")
End Sub
 
Private Sub ListBox2_GotFocus()
    Me.ListBox2.List = Array("ff", "gg", "hh")
End Sub

Boisgontier