Sujet Précédent Sujet Suivant

Probleme plein ecran UF sur surface pro

Fermé
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 - Modifié le 5 nov. 2018 à 11:13
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 - 14 nov. 2018 à 16:00
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 dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 2
12 nov. 2018 à 09:11
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
12 nov. 2018 à 08:16
Bonjour,

Caisse "ma surface pro"????????????????
0
Réponse 3 / 5
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
12 nov. 2018 à 15:43
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 dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 2
14 nov. 2018 à 12:05
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
14 nov. 2018 à 13:25
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 dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 2
14 nov. 2018 à 15:33
bah en faite je n'est pas de code qui gère l'orientation
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 14 nov. 2018 à 15:54
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 dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 2
14 nov. 2018 à 16:00
ok merci pour la réponse
0