Probleme plein ecran UF sur surface pro

yanndebretagn Messages postés 100 Date d'inscription   Statut Membre Dernière intervention   -  
yanndebretagn Messages postés 100 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour la communauté,
voici le problème du jour, je viens de transférer mon UF sur ma surface pro mais elle ne s'affiche pas dans son intégralité malgrés le code 
Private Sub UserForm_Layout() 'plein ecran
    Application.ScreenUpdating = False
    Me.Width = Application.Width
    Me.Height = Application.Height
    Me.Top = 0
    Me.Left = 0
    Application.ScreenUpdating = True
End Sub


EDIT : Ajout des balises de code

auriez vous une solution?
Merci


A voir également:

5 réponses

Réponse 1 / 5
yanndebretagn Messages postés 100 Date d'inscription   Statut Membre Dernière intervention   2
 
bonjour f8 depuis le temps....
surface pro 4= pc hybride
j'imagine que sur les tablettes le problème doit être le même
(gestion affichage portrait/paysage)
là en l'occurrence en paysage le 1/3 de l'affichage est hors cadre malgré le code fullscreen.
bonne journée et à bientôt
1
Réponse 2 / 5
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Caisse "ma surface pro"????????????????
0
Réponse 3 / 5
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Essaie cela: 

Option Explicit
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private usf_width As Long, usf_height As Long, k As Single
Private Sub UserForm_Initialize()
  Dim iStyle As Long, hwnd As Long
  hwnd = FindWindow(vbNullString, Me.Caption)
  iStyle = GetWindowLong(hwnd, -16) Or &H70000
  SetWindowLong hwnd, -16, iStyle
  k = Me.Width / Me.Height
  usf_width = Me.Width
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True 'rendre Excel invisible
End Sub
Private Sub UserForm_Resize()
  On Error Resume Next
  Me.Width = Me.Height * k
  Me.Zoom = (Me.Width / usf_width) * 100
End Sub


0
yanndebretagn Messages postés 100 Date d'inscription   Statut Membre Dernière intervention   2
 
bonjour cs_Le Pivert,
merci pour la contribution
ça a l'air de faire la blague, cependant j'ai un léger décalage vers la droite et quand je bascule en portrait UF disparaît
une idée?
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Sans le code pour faire basculer l'UserForm en mode Portrait aucune idée!
0
Réponse 4 / 5
yanndebretagn Messages postés 100 Date d'inscription   Statut Membre Dernière intervention   2
 
bah en faite je n'est pas de code qui gère l'orientation
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
c'est bien ce que je pensais et tu crois qu'Excel peut suivre l'orientation de ta surface pro Il ne faut pas rêver et être réaliste. Tu penses que tes control qui sont sur ton userForm vont pivoter par magie.

Oublie et sers-toi d'Excel normalement

@+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
yanndebretagn Messages postés 100 Date d'inscription   Statut Membre Dernière intervention   2
 
ok merci pour la réponse
0

Discussions similaires

HP PC Hardware Diagnostic UEFI
Perrouche -
EPICEA56 -

8 réponses