Adapter largeur auto d'une listbox dans un userform auto

Bonjour,

Donc j'ai une userform qui se met en grand écran avec les lignes suivantes :

Private Sub UserForm_Activate()
With Rech1
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub

A l'intérieur de cette userform j'ai une listbox et je veux adapter la largeur automatiquement également. comment procéder ?

bon j'ai fait ce code mais le cadre ne va pas jusqu'au bord.

Private Sub UserForm_Activate()
With Rech1
.StartUpPosition = 3
.Width = Application.Width - 10
.Height = Application.Height - 10
.Left = 0
.Top = 0
End With
With L1
.Width = Rech1.Width - 10
End With

Bonjour,

Voici un essai :

Private Sub UserForm_Activate()
Marge = 5
With Rech1
    .StartUpPosition = 3
    .Width = Application.Width - 10
    .Height = Application.Height - 10
    .Left = 0
    .Top = 0
    .L1.left = .left + Marge '<=> Marge directement
    .L1.width = .width - Marge * 2
End With
end sub

Evidemment, il faut que Marge soit une valeur comprise entre 0 et Rech1.width / 2.

Cdlt,

Merci, mais la taille de la listbox n'a pas changé.

Et bien de rien. Il faut pas hésiter à faire des essais, par exemple en remplaçant 5 par 50 pour voir ce que ça pourrait donner.

Rechercher des sujets similaires à "adapter largeur auto listbox userform"