Bonjour,
Aucun souci pour afficher un UserForm à partir d'un choix dans la liste (UserfForm1, UserfForm2, UserfForm3) d'un ComboBox .

Dans le UserfForm1:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()   
   'formulaire plein écran
    With Form_producteurs
        .StartUpPosition = 1
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
    'facteur zoom contrôles
    Me.Zoom = largeurEcran * 100 / 1150
End Sub
 
Private Sub ComboBox1_Click()
    With ComboBox1
        If .ListIndex <> -1 Then UserForms.Add(.Value).Show
    End With
End Sub
Dans un module :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Function largeurEcran()
  largeurEcran = GetSystemMetrics(0)
End Function
À l'initialisation de l'UserfForm1 il s'ouvre suivant le zoom défini.
Par contre suite au choix d'un autre formulaire le zoom ne s'applique pas, pourquoi ?
Quelqu'un aurait-il une solution ?
Merci d'avance pour vos réponses.