Taille label dynamique

Question

Bonjour, je crée quelques labels dans un userform pour afficher quelques valeurs d'un tableau (ceux qui correspondent à la date du jour), voici mon code

         Set Label = Me.Controls.Add("Forms.Label.1", "lbl1")
            With Label
             .Top = 30 + Decallage
             .Left = 10
             .Caption = Cells(Ligne, Range("HeurePunition").Column).Value + " " + Cells(Ligne, Range("NomPunition").Column).Value + "  " + Cells(Ligne, Range("PrénomPunition").Column).Value
             .Font.Name = "Comic Sans MS"
             .Font.Bold = True
             .Font.Size = 12
             .ForeColor = RGB(90, 200, 240)

Le problème c'est que les labels créés sont petits (en terme de "longueur horizontale"). Donc avec mon 3ème +, mon texte va à la ligne (alors que l'userform à largement la place pour l'accueillir).

Si je place un autosize, le troisième élément va à la ligne. Sans autosize, il va aussi à la ligne mais et à moitié coupé :/.

Il n'y a pas une commande pour définir la longueur du label?

Merci.

ps: si je passe en taille 8, pas de soucis, taille 12 ==> soucis.

James007 · Answer

Je ne suis pas sûr de comprendre ton obstacle ... A priori, tu devrais combiner ... .AutoSize = True .WordWrap = False...