VBA Excel ajouter label incrémental sur formulaire

Résolu
Richard_9 Messages postés 26 Date d'inscription mardi 13 juillet 2004 Statut Membre Dernière intervention 1 juillet 2008 - 10 mai 2006 à 10:02
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 13 mai 2006 à 10:13
Bonjour,
j'ai créé un form Frm_intro dans lequel j'ai posé un texbox txtbox_nb pour récupérer le nombre de produits à introduire.

Je voudrais une fois le nombre de produits introduits, poser sur le form autant de label que le nombre introduit.
Par exemple si j'ai 10 produits à introduire, poser sur le form les label
lbl_001, lbl_002, lbl_003, .... avec comme caption du label le N° d'ordre,
comme ceci :
1
2
3
4
Je pourrais alors introduire mes produits l'un après l'autre sur une seule ligne et faire apparaître ce qui a déjà été introduit juste en dessous.
Comment puis-je faire ?
Merci

2 réponses

michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 30
13 mai 2006 à 10:13
Pfff...

décidément c'est pas mon jour ...

l'anotation "'boucle pour créer les frames" , n'a bien sur rien à voir avec la macro ...

bonne journée
michel
3
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 30
13 mai 2006 à 10:12
bonjour

je n'ai pas compris la fin de ta question , mais pour ajouter les Labels tu peux essayer

Private Sub CommandButton1_Click()
Dim Lbl As Control
Dim x As Byte, j As Byte


If txtbox_nb = "" Or Not IsNumeric(txtbox_nb) Then Exit Sub
x = txtbox_nb



For j = 1 To x 'boucle pour créer les frames

Set Lbl = Me.Controls.Add("Forms.Label.1")

With Lbl
.Name = "Lbl_" & j
.Object.BackColor = RGB(125, 125, 125)
.Object.Caption = j
.Object.TextAlign = 2
.Left = 10 + ((j - 1) * 100)
.Top = 50
.Width = 90
.Height = 14
End With


Set Lbl = Nothing
Next j
End Sub



bonne journée
michel
0