VBA Excel ajouter label incrémental sur formulaireRésolu

Question

Bonjour,
j'ai cr&#233;&#233; un form Frm_intro dans lequel j'ai pos&#233; un texbox txtbox_nb pour r&#233;cup&#233;rer le nombre de produits &#224; 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 &#224; introduire, poser sur le form les label 
lbl_001, lbl_002, lbl_003, .... avec comme caption du label le N&#176; d'ordre,
comme ceci :
1
2
3
4
Je pourrais alors introduire mes produits l'un apr&#232;s l'autre sur une seule ligne et faire appara&#238;tre ce qui a d&#233;j&#224; &#233;t&#233; introduit juste en dessous.
Comment puis-je faire ? 
Merci

michelxld · Accepted Answer

Pfff...

d&#233;cid&#233;ment c'est pas mon jour ...

l'anotation "'boucle pour cr&#233;er les frames" , n'a bien sur rien &#224; voir avec la macro ...

bonne journ&#233;e
michel

michelxld · Answer

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&#233;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&#233;e
michel

VBA Excel ajouter label incrémental sur formulaire

2 réponses

Discussions similaires