usf plein ecran

[jack]

Bonsoir à tous

Je voudrais avoir un usf qui lors de l'ouverture du fichier occupe tout l'écran
comment procéder pour avoir cela et cela est il sans risque

Bonne soirée

Slts
Jack

 

[olive2b]

Salut Jack,

Pour élargir ton usf, il y a plusieurs solutions, tu peux entrer les valeurs Height(450) et Width(600) (suivant la résolution de ton affichage) dans les propriétés ou étirer celui-ci directement avec la souris dans vbe.

Pour le lancer dès l'ouverture de ton fichier, il faut taper dans vbe, dans ThisWorkbook:

sub workbook_open
userform1.show
end sub

Il n'y a aucun danger puisque tu peux fermer ton usf avec la croix en haut à droite.

Bonne soirée.

 

[Manu13]

Bonjour jack, olive2b et le Forum

tu peux aussi essayer ce code

Private Sub UserForm_Activate()
With UserForm1
.startUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub

bonne soirée
Manu

 

[JACK]

Bonjour Manu et olive et le forum

Merci pour vos réponses
Peut on ôter la barre bleue du haut de l'usf et la croix en mettant bien sûr un bouton pour quitter l'usf
Slts
Jack

 

[Manu13]

Bonjour Jack

voici un exemple répondant à ta demande

Manu

 

[copayo]

slt,

ya pas de fichier ??

 

[Manu13]

oups
voilà

 

[Manu13]

mince parti trop vite [file name=pleinecran.zip size=11639]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pleinecran.zip[/file]

 

[jack]

Bonsoir
Merci beaucoup pour cet exemple


Slts
Jack