Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2914 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  taille automatique d'un userform

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

taille automatique d'un userform

n°1611925
jackouille​3
Posté le 15-09-2007 à 18:05:22  profilanswer
 

bonjour à tous,
j'aimerais que le userform prenne tout l'écran lors de son ouverture. ( pour cacher le fichier exell )
le problème est que le fichier est partagé et je ne connais pas forcément la résolution de l'écran sur lequel il sera visualisé.
 
j'ai bien entendu essayé en modifiant les paramètres widht et height mais en les forcant à la valeur des paramètres écrans ( ex. 1280x800) mon userform n'est pas totalement visible.
 
y a-t-il une formule pour pouvoir adapter à la taille de l'écran?
ou y a-t-il une fonction du type expand ou auto zoom
tout autre idées est la bien venue.
 
merci d'avance

mood
Publicité
Posté le 15-09-2007 à 18:05:22  profilanswer
 

n°1611926
jpcheck
Pioupiou
Posté le 15-09-2007 à 18:15:33  profilanswer
 

si c'est pour cacher le fichier excel, tu peux faire un minimize de la feuille non ?

n°1611976
kiki29
Posté le 16-09-2007 à 00:07:54  profilanswer
 

Si tu y tiens vraiment,dans un Module, à adapter.Je pense quand même que jp a raison

Option Explicit
 
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
 
Function DefinitionX() As Long
    DefinitionX = GetSystemMetrics(SM_CXSCREEN)
End Function
 
Function DefinitionY() As Long
    DefinitionY = GetSystemMetrics(SM_CYSCREEN)
End Function


http://msdn2.microsoft.com/en-us/library/ms724385.aspx


Message édité par kiki29 le 16-09-2007 à 00:12:19
n°1612052
e2prom
Posté le 16-09-2007 à 16:16:05  profilanswer
 

Salut, tu fais ça
 
Private Sub UserForm_Initialize()
 
Userform1.Width = Application.Width
Userform1.Height = Application.Height
 
End Sub

n°1612056
jackouille​3
Posté le 16-09-2007 à 16:24:44  profilanswer
 

kiki29 , merci mais je suppose que les valeurs definitionx et definitiony deviennent le height et widht du userform, si c'est le cas cela ne correspond pas à la résolution de l'écran.( c'est ce que je disais dans mon message userform pas totalement visible)
 
Jpcheck , ta solution me parait effectivement interressante mais je ne vois pas la fonction minimize et ou la mettre. Peux-tu m'éclairer.
 
Petite info, ma macro est en autoopen.
 
merci à vous

n°1612058
jackouille​3
Posté le 16-09-2007 à 16:46:11  profilanswer
 

e2prom ,  merci ce code me convient mais est-ce possible d'ouvrir un userform et d'en faire apparaitre un autre par dessus sans fermer le premier.
Avec ton code j'ouvre un userform en plein écran, et par dessus je fait apparaitre mes autre fenêtres sans devoir les redimensionner et repositionner,( multipage, listbox, combobox ...)

n°1612101
e2prom
Posté le 16-09-2007 à 19:00:34  profilanswer
 

Tu peux en ouvrir un autre par dessus si tu mets le premier en non modal
 
Userform1.show vbmodeless
 
Par exemple avec un button sur le premier
Userform2.show


Message édité par e2prom le 18-09-2007 à 18:40:26
n°1612490
jackouille​3
Posté le 18-09-2007 à 08:58:28  profilanswer
 

merci pour ta solution e2prom
 
bonne continuation


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  taille automatique d'un userform

 

Sujets relatifs
taille d'un ALT et TitleIncrémentation automatique d'un champ numéro dans une table access
[VBA] récupérer valeur couleur automatiqueTaille d'image avec fo:external-graphic
"Enter" automatique sur un programmeInclusion d'un header automatique
Passage de variables d'un module vers un userform[BATCH]Obtenir la taille de l'espace disque restant sur un PC distant
suppression automatique de ligne sur excel [vba]Calcul de la taille du profil de l'utilisateur courant à la connexion.
Plus de sujets relatifs à : taille automatique d'un userform


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR