Discussion :

[ouskel'n'or]

Ça se complique !

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
Private Sub CommandButton1_Click()
Dim LesFrames As New Collection
Dim i
    For Each LeControle In Me.Controls
          i = i + 1
    Next
    Me.Frame1.SetFocus
    Me.Copy
    Me.Paste
    Nom = Me.Controls(i).Name
    LesFrames.Add Me.Controls(Nom)
    Me.Controls(i).Top = Me.Controls(i - 1).Top + Me.Controls(i - 1).Height
    For Each LeBouton In Me.Controls(i).Controls
        MsgBox LeBouton.Name
    Next
    'Me.Controls("Frame2").Visible = False
    'LesFrames(1).Visible = False
End Sub

Bon courage, je n'ai qu'un bouton sur mes frames pour les tests. Mais tu peux tester le type de contrôle pour savoir s'il s'agit d'un bouton ou d'une fermeture Éclair

[dev81]

Et comment on teste les controles?
Merci

[ouskel'n'or]

J'espère que tu pourras interpréter, je commence à être un peu usé Tu as de la chance, j'avais ça dans une boîte

Code :

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

1
2
3
    For Each ctl In UserForm1.Frame1.Controls
        msgbox TypeName(ctl) 
    Next ctl

A+ quand même