Bonsoir ,
Voici ma problématique, j'utilise un code dans mes userforms afin de les adapter à la résolution de l'écran.
Private Sub UserForm_Activate()
Dim ctl As Control, ratiow As String, ratioh As String
ratiow = Application.Width / Me.Width: ratioh = Application.Height / Me.Height
Me.Left = 0: Me.Top = 0
Me.Width = Application.Width: Me.Height = Application.Height
For Each ctl In Me.Controls
ctl.Left = ctl.Left * ratiow
ctl.Top = ctl.Top * ratioh
ctl.Width = ctl.Width * ratiow
ctl.Height = ctl.Height * ratioh
ctl.Font.Size = ctl.Font.Size * ratioh
Next
End Sub
ce code me donne entière satisfaction.
Je voudrais savoir s'il est possible de transformer cette procédure en une procédure publique qui sera appelée à partir de l'userform.
Je vous informe que sur mon véritable fichier, un userform de navigation est ouvert et c'est à partir de ce dernier que seront ouvert les autres userforms. Autrement dit ce formulaire de navigation reste ouvert jusqu'à la fermeture du fichier.
En vous remerciant.
Bonne soirée.