Discussion :

[Ravens]

Bonjour à tous,

J'ai crée une des frames de manière dynamique comme suite :

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
23
24
25
26
 
Private Sub add1_Click()
 
    Dim objFr As Control
    Dim cl As Classe1
 
    nbFrame = frmControlCount(Me, "Frame") + 1
    i = nbFrame - 3
 
    Set collect = New Collection
 
    Set objFr = Me.Controls.Add("forms.frame.1")
    With objFr
        .Name = "Frame" & nbFrame
        .Object.Caption = "Formule n°" & i
        .left = leftFr
        .top = 222 + (i - topFr) * (66 + 6)
        .width = 282
        .height = 66
    End With
 
    Set cl = New Classe1
    Set cl.Frame = objFr
    collect.Add cl
 
End Sub

La classe comprend ceci :

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Public WithEvents TxtBx As MSForms.TextBox
Public WithEvents Choice As MSForms.ComboBox
Public WithEvents Frame As MSForms.Frame
 
avec deux méthodes une pour Choice et l'autre TxtBx

Et ce que j'aimerais pouvoir faire c'est de boucler sur les frames de cette classe comme :

Code :

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

1
2
3
4
5
6
For f = 5 To nbFrame
        frameNo = f - 3
        For Each Ctrl In Classe1.Controls
 
            If TypeName(Ctrl) = "ComboBox" And Ctrl.Parent.Name = "Frame" & f Then
...

[issoram]

Bonjour,

A en juger par ton code, une classe "Classe1" ne comprend qu'un seul contrôle de type Frame, donc j'ai du mal à comprendre ce que tu souhaites.
Peux tu expliciter plus clairement

j'aimerais pouvoir faire c'est de boucler sur les frames de cette classe

Cordialement.

[Ravens]

Je crée des frames dynamiquement et j'aimerais pouvoir boucler sur ces frames, mais étant donné qu'ils ne sont pas crée dès le départ dans l'UserForm ils ne sont pas reconnu par la méthode :

Code :

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

For Each Ctrl In Me.Controls

[issoram]

A partir du moment où tu ajoutes un contrôle à ton UF avec la méthode Add

Code :

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

Me.Controls.Add("forms.frame.1")

le contrôle en question est ajouté dans la collection des contrôles du UF (Me.Controls).
Il doit donc apparaitre lorsque tu parcours la collection

Code :

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

For Each Ctrl In Me.Controls

Un petit exemple en pièce jointe pour t'en convaincre (sub Test dans ThisWorkbook).

Bon courage.

[Ravens]

Encore merci pour ton encouragement malheureusement lors de l'activation de ta macro test() il ne se passe rien :-/

[issoram]

Regarde du côté de la fenêtre d’exécution du projet VBA.