Afficher UserForm avec un choix dans ComboBox

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

Dans le UserfForm1:

Code:

---

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:

---

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.

Bonjour,

pas certain d'avoir compris... vous cherchez à mettre vos userform 1,2 et 3 en plein écran ou sur la base des dimensions de la fenetre excel ?
ce que je crois comprendre du probleme c'est que l'ouverture des forms 2 et 3 ce fait via la forms 1 mais que même si le dimensionnement de la form 1 s'applique correctement le dimensionnement des forms 2 et 3 ne se fait pas... est-ce bien ça ?

Si c'est bien cela je ne vois pas dans votre code, du code spécifique au dimensionnement de ces 2 autre forms !
Si vous pensiez que le fait de dimensionner la première dimensionneras les 2 autres automatiquement c'est rapé !
Il faut faire la même chose pour les autres.

Bonjour,

Citation:

---

Si c'est bien cela je ne vois pas dans votre code, du code spécifique au dimensionnement de ces 2 autre forms !
Si vous pensiez que le fait de dimensionner la première dimensionneras les 2 autres automatiquement c'est rapé !
Il faut faire la même chose pour les autres

---

Navré j'ai oublié de le péciser, voici le code dans les 2 autres UserForm :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Initialize() 'formulaire plein écran With UserForm1 .StartUpPosition = 1 .Width = Application.Width - 11 .Height = Application.Height - 11 .Left = 0 .Top = 0 End With 'facteur zoom contrôles Me.Zoom = largeurEcran * 100 / 1150 End Sub

---

L'affichage plein écran et le dimensionnement de la form 2 ou 3 ne s'applique pas à leur ouverture.

Bonjour,

Il faut que vore procédure Userform_Initialize() soit dans chaque module des Userforms que vous voulez en plein écran...

Pour simplifier, créez une procédure dans votre module standard :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit   Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Function largeurEcran() largeurEcran = GetSystemMetrics(0) End Function   Sub Init(U As Object) 'formulaire plein écran With U .StartUpPosition = 1 .Width = Application.Width .Height = Application.Height .Left = 0 .Top = 0 .Zoom = largeurEcran * 100 / 1150 End With End Sub

---

Ainsi, dans chacun des Userform que vous voudrez voir affiché en plein écran, suffira de placer ce code dans son module :

Code:

---

1 2 3 4 5

Option Explicit   Private Sub UserForm_Initialize() Init Me End Sub

---

Bonjour et merci pijaku,
Ça fonctionne à merveille. :ccool: