frame & listbox

Version imprimable

17/03/2010, 21h07
iperkut

frame & listbox
Bonjour,

Voici mon petit soucis, je dispose d'une frame dans un userform.

Ce frame contient des listbox, et je souhaiterais tester tous les listbox de ce frame sans avoir à rentrer manuellement leurs nom.

En gros, si une valeur du listbox est sélectionnée, afficher "Tototata"

J'ai la procédure pour un OptionButton, mais je n'arrive pas à l'adapté pour les listbox.
Code:

1 2 3 4 5 6 7 8 9 For Each c In Me.Frame1.Controls If TypeName(c) = "OptionButton" Then Select Case c.Value Case True MsgBox c.Name Exit For End Select End If Next
Merci d'avance

Quelque chose comme ça ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub UserForm_Initialize()
ListBox1.List = Array("toto", "tata")
ListBox2.List = Array("a", "b")
End Sub
 
 
Private Sub UserForm_Click()
 
    Dim ct As Control, i%
    For Each ct In Me.Controls
        If TypeName(ct) = "ListBox" Then
            If ct.ListCount > 0 Then
                For i = 0 To ct.ListCount
                    If ct.Selected(i) Then MsgBox ct.List(i)
                Next
            End If
        End If
    Next
End Sub

bonjour meud007 iperkut le forum dans ton cas un code comme cela peut être suffisant!!

Code:

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
  Dim j As Control
  For Each j In Controls
  If TypeOf j Is MSForms.ListBox Then
  If j <> "" Then MsgBox "Tototata": Exit For
  End If: Next j
End Sub