Autres dimensionner une listbox pour DUDU2

patricktoulon

XLDnaute Barbatruc
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
1732366521028.png


demo1.gif
 

TWal

XLDnaute Nouveau
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

XLDnaute Barbatruc
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.
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 863
Messages
2 113 658
Membres
111 932
dernier inscrit
remixxx