Dimension auto à lataille de l'ecran un UserForm

Bonjour la Team;

il y à t'il un moyen de dimensionner en Auto à la taille de l'écran un Userform mais aussi les éléments contenus (txtbox,combos,etc..)

j'utilise déjà ce code pour l'Usf , mais je n'arrive pas à faire suivre le redimensionnement des éléments, ça me décale tout !!!

PS :si possible avoir une garde de ~2cm entre l'usf et l'ecran

Private Sub UserForm_Activate()

With Me

.StartUpPosition = 3

.Width = Application.Width ' (- 2O ???)

.Height = Application.Height'(- 20 ???)

.Left = 0

.Top = 0

End With

End Sub

Merci d'avance

Bonjour

Une explication et une démo en téléchargement ici

Cordialement

Bonjour & Merci pour le lien

effectivement superbe utilisation de l'Api

Cependant par rapport à ce Code, il y à un truc que je n'explique pas, j'ai un défaut d'affichage ,

Le redimensionnement des Ctrl (txtbox,Labels) n'est pas de la même taille en fonction de leurs position dans le Usf ???( ca dilate plus en position basse de l'Usf??)

Ci joint un Bout de Code pour le Redim :

'rapports d'agrandissement

RW = Me.Width / wInit: RH = Me.Height / hInit

'redimensionnement et replacement de l'ensemble des contrôles voulus en fonction de l'écran

Dim Ctl As MSForms.Control

For Each Ctl In Me.Controls

'tag pour les contrôles que l'on ne veut pas redimensionner

If Ctl.Tag = "" Then Ctl.Move Ctl.Left * RW, Ctl.Top * RH, Ctl.Width * RW, Ctl.Height * RH

If Not TypeOf Ctl Is Image Then 'ajouter si besoin les autres contrôles n'ayant pas de police

Ctl.Font.Size = Round(Ctl.Font.Size * RH) 'redim des polices

End If

Next

Si vous avez une idée ???