Discussion :

[enibris]

Je voudrais lister tous les combobox de ma frame1(n)

Le code ci-dessous ne marche pas

Code :

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

1
2
3
4
5
6
7
8
     Dim F As Frame
    Dim C As ComboBox
 
    For Each F In Frame1
        For Each C In Frame1(F.Index)
            msgbox C.name
        Next C
    Next F

Merci de votre aide

[avigeilpro]

C'est normal :

Code :

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

For Each A In B

B doit etre une collection de A, or Frame(F.index) n'est pas une collection de combobox. J'ai cherché un petit moment et j'ai trouvé cela :

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
20
21
22
 
    Dim F As Frame
    Dim C As Control
    Dim N As Integer
 
    N = 0   'index de la frame dont on veut les combobox. exemple avec 0
 
    'parcours tous les CONTROLS de la feuille Form1
    For Each C In Form1.Controls
 
        'Si le control est un ComboBox
        If TypeName(C) = "ComboBox" Then
 
            'S'il est contenu dans la Frame1
            If C.Container.Name = "Frame1" Then
                'et si l'index de la frame est N
                If C.Container.Index = N Then
                    MsgBox C.Name & " Dans la frame1(" & N & ")"
                End If
            End If
        End If
    Next