Discussion :

[iperkut]

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 :

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

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

[meud007]

Quelque chose comme ça ?

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
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

[laetitia]

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

Code :

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

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