position listbox dans un usf

[gds35]

Mes AMIS du forum bonjour ,

J'ai un usf , une listbox et 2 boutons de commande.

A l'ouverture de l'usf je met ce dernier en plein écran comme ceci :
Private Sub UserForm_Activate()
With UserForm1
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub

le pb c'est que ma list box et mes boutons sont positionnés en haut a gauche . Je desirerais les centrer dans l'usf . Est-ce possible , de qu'elle manière ???

Merci de votre aide , bonne journée cordialement

GDS35

 

[job75]

Re : position listbox dans un usf

Bonjour gds35,

On jongle comme on veut avec les propriétés Top Left Width Height.

Par exemple pour centrer exactement la ListBox sur l'USF, ajouter :

With ListBox1
.Top = (UserForm1.Height - .Height) / 2
.Left = (UserForm1.Width - .Width) / 2
End With

A+

 

[gds35]

Re : position listbox dans un usf

Merci JOB75 , effectivement , j'ai joué sur les parametres de la propriété , et cela fonctionne . J'ai un autre soucis , maintenant dans mon usf j'ai 5 images que je voudrais positionner par un code a plusieurs endraoits de cet USF , j'ai tenté insertion image , pour l'instant le résultat est negatif.

Cordialement GDS35