Discussion :

[zine pef]

bonjour
je demande un code de l'ouverture d'userform en plein ecran

""une form plein écran quelque soit la résolution""
et merçi

[laetitia]

bonjour zine pef le forum essai comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
With Me
        .StartUpPosition = 3
        .Width = Application.Width - 2
        .Height = Application.Height - 2
        .Left = 0
        .Top = 0
    End With
End Sub

[Krovax]

Voir la Faq
Comment adapter les dimensions d'un UserForm à la taille de l'écran ?

Edit : Bonjour laetitia, j'ai été un peu long a retrouver le lien et je n'ai pas rafraichie. C'est exactement le même code

[laetitia]

re, salut l ami Krovax le forum petite precision quand meme zine pef le code qu on vient de te donner ne redefini pas les controles dans l user il faut utiliser resize assez delicat a mettre en oeuvre surtout si on rajoute des controles

[ucfoutu]

Bonjour,

Je préfèrerais quant à moi insérer le composant sysinfo ("contrôles supplémentaires") et utiliser ses propriétés relatives à la workarea (il y en a 4).
L'avantage est que l'on peut ainsi avoir la dimension utile exacte, quels que soient le statut d'affichage ("permanent" ou "escamotable" défini par l'utilisateur Windows) et la position de la barre de tâches.

[laetitia]

re salut l ami ucfoutu je connais pas du tout cette chose !!!! tu peus expliquer comment ca marche s il te plait a+ leti

[ucfoutu]

Bonjour, laetitia,

Etape1 : dans les contrôles supplémentaires : cocher "Microsoft sysinfo control" et l'insérer sur le UserForm ==>> il prend par défaut le nom sysinfo1

Les propriétés qu'il affiche dans la fenêtres des propriétés sont peu nombreuses, mais il en possède d'autres, de manière "cachée"

Pour les découvrir : tape dans ton code sysinfo1.
Dès la frappe du point (comme pour tous les contrôles) tu vas avoir un popup affichant plusieurs propriétés, parmi lesquelles celles de la surface "utile" et disponible de "travail". Elles commencent toutes par "WorkArea..."
Commence seule et on continue ensemble en cas de difficulté, mais je crois que tu vas très vite comprendre...