XL 2019 Liste dans USF

[gg13]

Bonjour,

Est-il possible en VBA de limiter l’affichage d’une liste sur userform.

Sur le fichier joint le USF affiche la liste pour une longueur de 20.
Mais cette longueur varie suivant la valeur de la cellule F10
Je voudrais que à l’ouverture du USF la longueur de la liste se reformate suivant la valeur de la cellule F10

Comment écrire en VBA la méthode pour réduire ou augmenter l’affichage ?

Merci pour votre aide
GG13

 

[sousou]

bonjour
avec ta police
nb = Range("f10")
UserForm1.ListBox1.Height = 9 * (nb) + 12
UserForm1.Show

 

[gg13]

sousou

Je ne sais pas d'où sort cette formule mais elle fonctionne très bien.
Merci pour ton aide.
GG13

 

[job75]

Bonsoir,

Voyez ce fil créé en 2017 :

https://excel-downloads.com/threads/ajustement-automatique-hauteur-listbox.20016017/

et le fichier joint avec la macro adaptée :

Private Sub UserForm_Initialize()
Dim marges#
Static n As Byte
With ListBox1
    .IntegralHeight = False: .Height = 0: .IntegralHeight = True: marges = .Height 'aucune ligne affichée
    .IntegralHeight = False: .Height = marges + .Font.Size '1 ligne affichée
    DoEvents
    .IntegralHeight = True
    .Height = (.Height - marges) * ([F10] + 1) + marges + 1 'toutes les lignes affichées
    DoEvents
    Me.Height = 2 * .Top + .Height + 45
    If n = 0 Then n = 1: UserForm_Initialize: n = 0
End With
End Sub

Elle fonctionne quelle que soit la taille de la police utilisée dans la ListBox.

A+