Agrandir un Formulaire (pleine page)

CelineG

XLDnaute Nouveau
Bonjour,

Je suis en train d'élaborer un fichier répertoriant toutes les fiches de profil (matériel, téléphone, véhicule...) de ma société. Et pour éviter de remplir ces fiches de profil à la main j'ai fait un formulaire avec quelques automtaisations...

Seulement sur mon écran, il est pile à la bonne taille, mais sur les postes des autres qui ne sont pas forcément configurés comme le mien, il est trop long : l'utilisateur ne voit pas toutes les informations et mon formulaire devient inutilisable ...

Ma question est donc : est-il possible de forcer un formulaire à se mettre en pleine page afin qu'on ne voit plus que lui ? Si oui dites moi comment !

Je sais qu'on peut le faire avec Access mais Excel je n'ai pas trouvé!

Je vous remercie. :)

Message édité par: CelineG, à: 20/05/2005 11:10
 
C

CélineG

Guest
Salut !

Non c'est pas trop tard! Je prends toujours !

Ton truc est pas mal mais ça n'est pas adapté à chaque utilisateur.

Pour celui qui n'est pas en 1024, ce n'est pas complètement adapté !

Merci quand même.
 
C

CélineG

Guest
Salut !

Non c'est pas trop tard! Je prends toujours !

Ton truc est pas mal mais ça n'est pas adapté à chaque utilisateur.

Pour celui qui n'est pas en 1024, ce n'est pas complètement adapté !

Merci quand même.
 
C

CélineG

Guest
Bonjour et merci.

j'ai donc trouvé ça :

Code:
Sub Taille()
    Dim XVal As Long, YVal As Long
    Dim Resolution As String
    Dim ZoomZoom As Integer
    
    YVal = GetSystemMetrics(SM_CYSCREEN)
    XVal = GetSystemMetrics(SM_CXSCREEN)
    Resolution = XVal & ' x ' & YVal
    
On Error GoTo Message

  If Resolution = '1280 x 1024' Then ZoomZoom = 120
  If Resolution = '1280 x 960' Then ZoomZoom = 110
' If Resolution = 'XXXX x XXX' Then ZoomZoom = ?? <= Si votre résolution est non prévue...
  If Resolution = '1280 x 720' Then ZoomZoom = 90
  If Resolution = '1152 x 864' Then ZoomZoom = 80
  If Resolution = '1024 x 768' Then ZoomZoom = 75
  If Resolution = '800 x 600' Then ZoomZoom = 50
  If Resolution = '640 x 480' Then ZoomZoom = 30
  
  With frm_profil
    .Zoom = ZoomZoom
  End With
  frm_profil.Show
  
    Exit Sub
Message:
    MsgBox 'Votre écran a une résolution non prévue de ' & XVal & ' par ' & YVal & _
    Chr(10) & 'Modifier la macro en fonction...Thierry', vbInformation, 'Macro 'Taille' à modifier !'
End Sub

Mais dès la première ligne ça plante : YVal = GetSystemMetrics(SM_CYSCREEN)

de quoi cela vient.

Merci
 
C

CélineG

Guest
Désolée j'avai spas vu qu'il ya vait des constantyes de déclarées.

Mais bon, c'était sur la bonne voie, mais ça na pas bien marché.

Les boutons, txt... se sont bien agrandis mais pas la taille du formulaire... alors on ne voyait pas tout dans mon formulaire.

C'est pas grave merci @ tous. Céline
 
C

CélineG

Guest
Désolée j'avai spas vu qu'il ya vait des constantyes de déclarées.

Mais bon, c'était sur la bonne voie, mais ça na pas bien marché.

Les boutons, txt... se sont bien agrandis mais pas la taille du formulaire... alors on ne voyait pas tout dans mon formulaire.

C'est pas grave merci @ tous. Céline
 

Marc_du_78

XLDnaute Accro
Bonjour Pascal, etc... le Forum,

Elle a du le trouver par le lien que je lui avais indiqué :
Utiliser Excel comme WebBrowser, par Thierry

https://www.excel-downloads.com/threads/cadeau-utilitaire-special-excel-download.2017/

qui amène sur :

V'Thierry's Macro Demo sur www.Excel-Downloads 10/11/2002
'===================================================================================
'Code Function pour l'API inclu dans MS-Office... Inutile de le chercher sur le net !!
'VOIR / Program File / Microsoft Office / Office / Sample /SAMPLES.XLS
'Je conseille à tout le monde de le regarder, il y a plein de chose à apprendre...
'pour une fois que Microsoft fait un cadeau, profitez-en !!! :) Thierry
 

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG