Multiple listbox, can only select 1 entry

[Jean-Francois]

Hi,

On a userform I have 4 listbox (listbox1 - listbox2 - listbox3 -listbox4)

All my listbox are configure as singleselection but what I would like is a single select for all the listbox.

Like if I select an entry in Listbox1 and after I decide to pick one in listbox2 then the one in Listbox1 get unselected.

All the listbox would act like a group.

Is it possible ?

 

[doofusboy]

Theoretically it should be possible. I would think that you could write code to deselect items in the other three list boxes each time a choice is selected in a given list box. Of course, you would need this code for each list box. Something like this should work for you.

Private Sub ListBox1_Click()
Dim intCtr As Integer
    For intCtr = 0 To ListBox2.ListCount
        ListBox2.Selected(intCtr) = False
    Next intCtr
    For intCtr = 0 To ListBox3.ListCount
        ListBox3.Selected(intCtr) = False
    Next intCtr
    For intCtr = 0 To ListBox4.ListCount
        ListBox4.Selected(intCtr) = False
    Next intCtr
End Sub
Private Sub ListBox2_Click()
    For intCtr = 0 To ListBox1.ListCount
        ListBox1.Selected(intCtr) = False
    Next intCtr
    For intCtr = 0 To ListBox3.ListCount
        ListBox3.Selected(intCtr) = False
    Next intCtr
    For intCtr = 0 To ListBox4.ListCount
        ListBox4.Selected(intCtr) = False
    Next intCtr
End Sub
Private Sub ListBox3_Click()
    For intCtr = 0 To ListBox2.ListCount
        ListBox2.Selected(intCtr) = False
    Next intCtr
    For intCtr = 0 To ListBox1.ListCount
        ListBox1.Selected(intCtr) = False
    Next intCtr
    For intCtr = 0 To ListBox4.ListCount
        ListBox4.Selected(intCtr) = False
    Next intCtr
End Sub
Private Sub ListBox4_Click()
    For intCtr = 0 To ListBox2.ListCount
        ListBox2.Selected(intCtr) = False
    Next intCtr
    For intCtr = 0 To ListBox3.ListCount
        ListBox3.Selected(intCtr) = False
    Next intCtr
    For intCtr = 0 To ListBox1.ListCount
        ListBox1.Selected(intCtr) = False
    Next intCtr
End Sub