Forums Applications Microsoft Office Excel

Taille d'un formulaire

Le
JLuc69
Salut le groupe,

Je voudrais dévelloper un formulaire de type compteur (compter les
points lors d'un match de billard français).
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité
de l'écran et que je récupère ses hauteur et largeur.
Je n'ai rien trouvé soit pour récupérer la résolution d'écran, soit
pour maximiser le formulaire.
Quelqu'un aurait une astuce ?
Merci d'avance
JLuc
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Jacky
Le #26343942
Bonjour,
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de l'écran et que je récupère ses
hauteur et largeur.



Essaye ceci
'-------------------
Private Sub UserForm_Initialize()
StartUpPosition = 0
Top = 0
Left = 0
Height = Application.Height
Width = Application.Width
End Sub
'--------------------
Private Sub UserForm_Activate()
MsgBox "Hauteur= " & Height & vbLf & "Largeur= " & Width
End Sub
'---------------------


--
Salutations
JJ


"JLuc69"
Salut le groupe,

Je voudrais dévelloper un formulaire de type compteur (compter les points lors d'un match de billard
français).
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de l'écran et que je récupère ses
hauteur et largeur.
Je n'ai rien trouvé soit pour récupérer la résolution d'écran, soit pour maximiser le formulaire.
Quelqu'un aurait une astuce ?
Merci d'avance
JLuc
Répondre en citant
JLuc69
Le #26343998
Jacky avait prétendu :
Bonjour,
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de
l'écran et que je récupère ses hauteur et largeur.



Essaye ceci
'-------------------
Private Sub UserForm_Initialize()
StartUpPosition = 0
Top = 0
Left = 0
Height = Application.Height
Width = Application.Width
End Sub
'--------------------
Private Sub UserForm_Activate()
MsgBox "Hauteur= " & Height & vbLf & "Largeur= " & Width
End Sub
'---------------------



Merci, ça marche au poil :D
Répondre en citant
Poster une réponse
Anonyme