VBA Excel ajouter label incrémental sur formulaire [Résolu]

Messages postés
26
Date d'inscription
mardi 13 juillet 2004
Dernière intervention
1 juillet 2008
- - Dernière réponse : michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
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
Afficher la suite 

2 réponses

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

Merci michelxld 3

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

Codes Sources a aidé 98 internautes ce mois-ci

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.