VBA Excel ajouter label incrémental sur formulaire

[Résolu]
Signaler
Messages postés
26
Date d'inscription
mardi 13 juillet 2004
Statut
Membre
Dernière intervention
1 juillet 2008
-
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
-
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

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
28
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
28
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