Bonjour à tous !
Je suis actuellement en train de créer un petit programme pour de la gestion de produits, et je suis confronté à un petit problème.
voici un schéma de ce que je veux faire pour être plus visuel (en rouge les éléments que l'utilisateur peut remplir)
Mon problème réside pour créer des labels dynamique dans un UserForm2 correspondant aux nombres de produits et à leurs noms donnés dans le userform1.
Je suis totalement bloqué et je ne vois pas comment faire ça.
Voici le code déjà réaliser pour la userform1 pour le bouton OK1
Private Sub CommandButton1_Click()
Dim collect As Object
Dim Obj As Object
Dim i As Integer
i = TextBox1
Set collect = New Collection
For i = 1 To i
Set Obj = Frame2.Controls.Add("forms.textbox.1")
With Obj
.Name = "p" & i 'nom de ta textbox (p1, p2, p3, ...)
.Left = 20 'position par rapport au rebord gauche de la liste
.Top = 20 * i + 10 'position par rapport au haut de la liste
.Width = 90 'largeur de la zone d'écriture
.Height = 15 'hauteur de la zone d'écriture
End With
Next
End Sub
Merci par avance des aides que vous pourrez m'apporter.
N'hésiter pas à me poser des question si mon problème n'est pas claire.
Bien Cordialement,
Théo