Autres dimensionner une listbox pour DUDU2

[patricktoulon]

BONJOUR @Dudu2
Private Sub UserForm_Activate()
ListBox1.List = [A1:A8].Value
ecx = Me.Width - Me.InsideWidth
With Me.Controls.Add("forms.Label.1", "cobaie")
.Width = 500
.Height = 200
.Font.Name = ListBox1.Font.Name
.BackColor = vbYellow
.BorderStyle = ListBox1.BorderStyle
' .SpecialEffect = ListBox1.SpecialEffect
.Font.Size = ListBox1.Font.Size
.Font.Bold = ListBox1.Font.Bold
.Caption = "toto"
.AutoSize = True
.Top = ListBox1.Top
.Left = ListBox1.Left + ListBox1.Width
ListBox1.Height = ((.Height + 0.25) * ListBox1.ListCount)
MsgBox "théoriquement un item mesure " & .Height & " points de haut"
'Me.Controls.Remove (.Name)
End With
End Sub

 

[TWal]

Bonjour Dudu2,

c'est ce que j'ai fait mais aucun message de téléchargement de ces deux fichiers et aucun fichier dans mon dossier de téléchargement.

Sauf qu'aujourd'hui, ça fonctionne.
Hier ni avec firefox ni avec chrome.
Incompréhensible et effectivement anormal.

TWal

 

[Dudu2]

Bonjour,

J'ai finalement renoncé à ajouter la Font.Size en cas de redimensionnement de la ListBox car cette valeur reste totalement arbitraire et peut générer des espaces vides. Je laisse Excel adapter la hauteur ce qu'il fait très bien avec IntegralHeight = True même si cela peut réduire sensiblement la hauteur de la ListBox.

J'ai rechargé les fichiers du Post #37.

 

[patricktoulon]

de toute façon la listbox sera toujours plus petite que le textbox
pour la simple et bonne raison que la première ligne commence plus bas dans le textbox
ce qui nous renvoie en post#27 en page 2 et même un peu avant aussi