taille ecran

[gh4]

Bonsoir a tous
je viens de changer d'ecran 17pouces vers 22 pouces
mon appli s'ouvrait sur une page avec les parametres suivants
Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized ' Aplication en plein écran
With UserForm1 ' Maximalisation de la userform
.Top = 0
.Left = 50
.Width = Application.Width
.Height = Application.Height
End With
maintenant avec mon nouvel ecran je ne l'ai plus en pleine page car le bas n'apparait plus sans faire defilé
comment dois je faire pour le retrouver en pleine page directement
Cordialement

 

[Roland_M]

Re : taille ecran

bonsoir

essai voir avec ceci

'######### dans un module #######################
'Appel API définition écran: ResolutionX=GetSystemMetrics32(0): ResolutionY=GetSystemMetrics32(1)
Public Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long


'##################### ton userform ###################
Private Sub UserForm_Initialize()
With UserForm1 ' Maximalisation de la userform
.Top = 0
.Left = 0
.Width = GetSystemMetrics32(0) * 0.75
.Height = GetSystemMetrics32(1) * 0.75
End With
End Sub

voir s'il faut adapter *.75 !? surtout sur .Height !?

 

[BERRACHED said]

Re : taille ecran

Salut,gh4

utilise plutôt ça a la place du votre :

Option Explicit
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Sub UserForm_Initialize()
Dim hwnd As Long, exLong As Long, zFactor As Integer, Style As Long
On Error Resume Next
  hwnd = FindWindowA(vbNullString, Me.Caption)
  exLong = GetWindowLongA(hwnd, -16)
  If exLong And &H880000 Then SetWindowLongA hwnd, -16, exLong And &HFF77FFFF
  zFactor = 100 * CInt(Application.Width / Me.Width)
  Me.Width = Application.Width
  Me.Height = Application.Height
  Style = GetWindowLong(hwnd, -16) And Not &HC00000
  SetWindowLong hwnd, -16, Style
  DrawMenuBar hwnd
 End Sub

Cordialement

 

[gh4]

Re : taille ecran

merci 1000 fois de vos solutions mais cela ne change rien a mon probleme
roland cela raccourci mon userform mais ne met pas mon userform en pleine page d'un seul tenant

berrached jai essayé ta macro mais j'ai des variable d'arriere et cela beug donc mais en les desactivant cela n'a rien changé a mon probleme

 

[Roland_M]

Re : taille ecran

re:

même en modifiant ceci (*.75) essai avec *.80 etc... bizarre !
Width = GetSystemMetrics32(0) * 0.75 < !?
.Height = GetSystemMetrics32(1) * 0.75 < !?

 

[BERRACHED said]

Re : taille ecran

Ré,
C'est bizarre !! et pourtant il marche chez moi

Cordialement

 

[gh4]

Re : taille ecran

rien ne varie en changeant la valeur
qu'est ce que <!? ,si je le met cela me fait une erreur de script en rouge
cela change uniquement si je passe une valeur inferieur a 75 cela retreci mon userform
mais pas avec la totalité affiché

 

[Roland_M]

Re : taille ecran

re:

allons un peu de réflexion !? c'est juste pour t'indiquer, il faut l'enlever bien entendu !!!!

.Width = GetSystemMetrics32(0) * 0.75
.Height = GetSystemMetrics32(1) * 0.75

et c'est de là qu'il te faut essayer * .8 ou *.9 etc faire essai !? ça doit obligatoirement marcher !
et s'il le faut tu supprimes les *.75 pour être à 100% (moi ça marche à .75)

tu peux comprendre que si tu mets .65 c'est normal et logique qu'il soit plus petit !?

 

[gh4]

Re : taille ecran

ok je suis monter jusqu'a 1.2 a partir de 0.8 plus rien ne varie
ci joint fichier alleger

 

[gh4]

Re : taille ecran

pour berracheid le meme fichier avec ta proposition

 

[Roland_M]

Re : taille ecran

re

chez moi si je mets .8 ou .9 je déborde complètement !
donc c'est que ça réagit ! c'est logique ! ça agrandit tel un graph !

je ne comprend pas que chez toi ça ne s'agrandisse pas !

le fichier, dans ce cas ne sert à rien !
excepté si quelqu'un qui passe par ici et qu'il a un 22 pouce et veux bien essayer !

 

[gh4]

Re : taille ecran

je veux pas que cela s'agrandisse car c'est deja trop grand ,mais si je passe en dessous de 0.75 cela reduit l'userform mais ne me le donne pas en pleine ecran

 

[Roland_M]

Re : taille ecran

re

j'espère que tu as bien compris le principe !?
tu n'est pas obligé de mettre 0.75 aux deux !
tu peux mettre 0.7 pour la largeur
et mettre 0.6 pour la hauteur !
par exemple !

 

[gh4]

Re : taille ecran

oui j'ai bien fait comme ça
ok mon userform se reduit
mais laisse apparaitre la feuille excel en dessous de plus tout ce qui est sur l'userform n'apparait pas integralement dans le userform retaillé avec les valeurs

 

[Roland_M]

Re : taille ecran

re

oui mais là ça se complique un peu ! il te jouer sur Me.Zoom !
et là ça risque d'être un peu corsé pour toi adapter tout ceci si tu n'est pas plus connaissant !?

voir un exemple ! pas forcément plein écran mais tu peux t'inspirer du code !