Hello
I have a problem with my OptionButtons and my GroupBoxes.
In a form, which is a kind of survey, GroupBoxes and OptionButtons are automatically generated, depending on the number of questions.
Each OptionButton must fit in a cell, and a GroupBox has to include many OptionButtons.
But there is a problem. Some OptionButtons are not included in the GroupBox
So, it is possible to select more than one option button into the group !
You can see it on the following capture :
Or this one :
You can play with the attached file to see the problem.
Or use the following code :
Thanks a lot for your help.
I have a problem with my OptionButtons and my GroupBoxes.
In a form, which is a kind of survey, GroupBoxes and OptionButtons are automatically generated, depending on the number of questions.
Each OptionButton must fit in a cell, and a GroupBox has to include many OptionButtons.
But there is a problem. Some OptionButtons are not included in the GroupBox
![frown.gif](/proxy.php?image=http%3A%2F%2Fwww.excelbanter.com%2Fimages%2Fsmilies%2Ffrown.gif&hash=cedd470a3839cb95e3979fc577312b93)
So, it is possible to select more than one option button into the group !
You can see it on the following capture :
![473486PbGroupBoxes.png](/proxy.php?image=http%3A%2F%2Fimg15.hostingpics.net%2Fpics%2F473486PbGroupBoxes.png&hash=2b073d26a1d2f57c2f9959da2558ebbc)
Or this one :
![364359PbExcel.png](/proxy.php?image=http%3A%2F%2Fimg15.hostingpics.net%2Fpics%2F364359PbExcel.png&hash=cc2fb3faf75f1de4fd4c879004ba71db)
You can play with the attached file to see the problem.
Or use the following code :
Code:
Sub Bouton1_Clic()
Dim myCell As Range
Dim numCell As Integer
Dim myGroupBox As GroupBox
Dim myOptionButton As OptionButton
ActiveSheet.OptionButtons.Delete
ActiveSheet.GroupBoxes.Delete
numCell = 0
For Each myCell In ActiveSheet.Range("E2:E12").Cells
If numCell = 0 Then
Set myGroupBox = ActiveSheet.GroupBoxes.Add(myCell.Left, myCell.Top, myCell.Width, (myCell.Height * 3))
myGroupBox.Caption = ""
End If
numCell = numCell + 1
If numCell = 3 Then numCell = 0
Next
numCell = 0
For Each myCell In ActiveSheet.Range("E2:E13").Cells
Set myOptionButton = ActiveSheet.OptionButtons.Add(myCell.Left, myCell.Top, 5, 5)
myOptionButton.Caption = ""
Next
End Sub