Discussion :

[natof]

bonjour
j'ai créé une frame a l'ouverture de mon userform ( gestion de stock)
et en fonction du nombre de ligne d'e mon fichier excel ( nomenclature), je voudrais dupliquer la frame ( autant de frame que de ligne )
je n ai jamais cree de userform de maniere dynamique et j'aurais besoin d"aide

dans le code ci dessous la frame et cree mais je n'arrive pas a faire un copier coller

par la suite
il faudra que je remplisse les labels box avec les infos du fichier
une fois que la personnes aura rempli le formulaire , je devrais en faire un fichier csv
il faudra , je pense , gerer un module de classe ( pour les differents textbox , optionbox et command box )
et le module de classe , je découvre

quelqu un pourrais m'aider svp , en commencant par la duplication du frame ( une chose a la fois )

d'avance un grand merci


Private Sub UserForm_INITIALIZE()
Dim Bouton As MSForms.CommandButton

Dim Fr As MSForms.Frame
Dim cb As MSForms.CommandButton
Dim Lb As MSForms.Label
Dim chb As MSForms.CheckBox
Dim txb As MSForms.TextBox
Dim ob As MSForms.OptionButton
Dim ob2 As MSForms.OptionButton




'----- Initialise l'userform ---------------
Me.BackColor = &H800000
Me.Height = 700
Me.Width = 500
Me.Caption = " gestion des transfert de stock "

'------ Créer le Frame1 ---------------------
Set Fr = Me.Controls.Add("Forms.frame.1", "Frame1", True)

With Fr
.Left = 6
.Top = 6
.Width = 400
.Height = 35

'Fr.BackColor = &HFFC0FF
.BorderStyle = fmBorderStyleSingle
.BorderColor = &HFFFFFF
End With

'------ Créer le commandbutton ------------------

Set cb = Fr.Controls.Add("Forms.commandbutton.1", "commandbutton1", True)


With cb
.Left = 3
.Top = 8
.Width = 18
.Height = 18
End With



''------ Créer le Label ---------------------

Set Lb = Fr.Controls.Add("Forms.Label.1", "Label1", True)
With Lb

.Left = 30
.Top = 8
.Width = 192
.Height = 18
.AutoSize = False
.BackStyle = 1
.BorderColor = &H80000006
.BackColor = &HFFFFFF
.BorderStyle = fmBorderStyleSingle
.FontSize = 10
.FontBold = True
.TextAlign = fmTextAlignCenter
.Caption = "code"

End With

'------ Créer le checkbox ---------------------
Set chb = Fr.Controls.Add("Forms.checkbox.1", "checkbox1", True)

With chb
.Left = 250
.Top = 8
End With


'------ Créer le textbox ---------------------
Set txb = Fr.Controls.Add("Forms.textbox.1", "textbox1", True)

With txb
.Left = 270
.Top = 8
.Width = 50
.Height = 18



End With

'------ Créer le optionbutton ---------------------
Set ob = Fr.Controls.Add("Forms.OptionButton.1", "OptionButton1", True)

With ob
.Left = 330
.Top = 2
.Width = 80
.Height = 15
.Caption = "NEUF"
.ForeColor = &HFFFFFF

End With

Set ob2 = Fr.Controls.Add("Forms.OptionButton.1", "OptionButton2", True)

With ob2
.Left = 330
.Top = 18
.Width = 80
.Height = 15
.Caption = "REFURB"
.ForeColor = &HFFFFFF
End With
end sub

[deedolith]

Salut,

Pour un projet un tant soit peut ambitieux,
la première chose à faire est de ségréger ton code (diviser pour mieux régner).
Ca respectera le SRP (https://en.wikipedia.org/wiki/Single...lity_principle) et la Loi de Demeter (https://fr.wikipedia.org/wiki/Loi_de_D%C3%A9m%C3%A9ter) ce qui est une excellente chose.
On écrira des fonction génériques prenant en charge la créatiion des contrôles, les détails spécifiques (comme la cosmétique) devront être pris en charge à l'extérieur des fonctions.

On commence par la création d'une frame, (la création des autres contrôles reposera sur le même principe).
Les données minimales pour une frame son ses coordonnées(x, y), sa taille (width, height), et l'éventuel parent au sein duquel elle sera crée (formulaire ou une autre frame)

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
Private Function CreateFrame(ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long, Optional ByRef ParentControl As MSForms.Control = Nothing) As MSForms.Frame
    Dim Parent As Object
    If (ParentControl Is Nothing) Then
            '// Si absence de contrôle parent, on prend le formulaire
        Set Parent = Me
    Else
            '// Si presence de contrôle parent, on le prend
        Debug.Assert TypeOf ParentControl Is MSForms.Frame    '// Le parent doit être une frame
        Set Parent = ParentControl
    End If
 
        '// création de la frame
    Dim Frm As MSForms.Frame
    Set Frm = Parent.Controls.Add("Forms.frame.1", "Frame1", True)
        '// Positionnement
    Frm.Left = X
    Frm.Top = Y
    Frm.Width = Width
    Frm.Height = Height
        '// renvoie la référence pour usage ultérieur
    Set CreateFrame = Frm
End Function

Exemple d'appels:

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
        '// Création d'une frame au sein du formulaire
    Dim Frm As MSForms.Frame
    Set Frm = CreateFrame(20, 20, 100, 100)
 
        '// Création d'une frame au sein de la frame précédemment créée
    CreateFrame 20, 20, 50, 50, Frm
End Sub

Note: Les coordonnées sont toujours relatives au parent.

Je te laisse refondre ton code pour répondre à ce premier besoin (la suite sera plus complexe).