Utiliser code pour plusieurs userforms

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.

Bonsoir,

ci-joint exemple

Bonjour Thev

C'est impeccable, parfait exactement le résultat escompté.

Merci beaucoup.

Rechercher des sujets similaires à "utiliser code userforms"