Userform à l'ouverture du fichier en plein écran

Bonjour à tous , problème que je n'arrive pas à résoudre étant débutant VBA , je vais tenter de m'expliquer au plus facile .

A l'ouverture de mon fichier j'ai un userform qui s'affiche automatiquement appelé "interface"

ma question est la suivante j'aimerais que sur tout ordinateur il s'affiche en plein écran , peu importe la taille d'écran .

Je vous joint le fichier et merci en avant pour le temps que vous y consacrerez .

Salut Atomiik,

A coller dans le module de 'interface'...

Private Sub UserForm_Activate()
'
interface.Left = 0
interface.Width = Application.Width
interface.Height = Application.Height
'
End Sub

A+

Salut curulis57 , merci beaucoup de t'être pencher sur mon soucis .

Alors ta formule fonctionne , mais j'ai l'impression qu'il y a un espace encore en haut et que ça déborde un peu trop sur les côtés .

Ce n'est peut être que mon ressenti sur mon pc au travail .

Si tu me confirmes que c'est tout bon , je passe le sujet en résolu .

Merci encore .

Bonjour,

Et ceci ... convient-il mieux ?

Private Sub UserForm_Activate()
   Me.Left = 1
   Me.Top = 1
   Me.Width = Format(ResolutionEcranLargeur, "#,##0") * 0.75   ' dimentionne le Userform à la taille de la fenêtre Excel en largeur
   Me.Height = Format(ResolutionEcranHauteur, "#,##0") * 0.75  ' dimentionne le Userform à la taille de la fenêtre Excel en hauteur
End Sub

ric

Salut Atomik, ric,

...découvert Usablewidth......

Ce qui est bizarre, c'est que (chez moi) UsableHeight ne donne pas le résultat escompté!!

J'ai aussi réglé la propriété BorderStyle de l'USF sur 1 : plus joli!

Private Sub UserForm_Activate()
'
interface.Left = 0
interface.Width = Application.UsableWidth
interface.Height = Application.Height
'
End Sub

A+