Bonjour,
J'ai cherché comment mettre un userform en plein écran quel que soit l'ordinateur de l'utilisateur pour ça il n'y a pas de soucis j'ai trouvé le code suivant qui fonctionne très bien :
Private Sub UserForm_Initialize()
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.FontSize = Ctl.FontSize * ratioh
Next
End Sub
Le problème c'est que dès que je rajoute une image, il m'indique un code erreur d'exécution 438 Propriété ou méthode non gérée par cet objet. J'ai vérifié que c'était bien le fait de mettre en plein écran l'userform qui bloquait.
Je vous demande donc si vous avez une modification à apporter à ce code pour que cela fonctionne ou une autre méthode de faire ?
J'ai essayé de bidouiller mais sans succès !
Merci beaucoup pour vos futurs réponses !
Bien cordialement,
Romain.
PS : Voici le fichier sur lequel je travaille si cela peut vous aider!
J'ai cherché comment mettre un userform en plein écran quel que soit l'ordinateur de l'utilisateur pour ça il n'y a pas de soucis j'ai trouvé le code suivant qui fonctionne très bien :
Private Sub UserForm_Initialize()
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.FontSize = Ctl.FontSize * ratioh
Next
End Sub
Le problème c'est que dès que je rajoute une image, il m'indique un code erreur d'exécution 438 Propriété ou méthode non gérée par cet objet. J'ai vérifié que c'était bien le fait de mettre en plein écran l'userform qui bloquait.
Je vous demande donc si vous avez une modification à apporter à ce code pour que cela fonctionne ou une autre méthode de faire ?
J'ai essayé de bidouiller mais sans succès !
Merci beaucoup pour vos futurs réponses !
Bien cordialement,
Romain.
PS : Voici le fichier sur lequel je travaille si cela peut vous aider!