usf plein écran sur toutes les tailles d'écran

[pascal21]

bonjour le forum
j'ai crée un classeur avec un usf qui sera plein écran
ce classeur est destiné à plusieurs pc qui n'ont pas tous la même résolution d'écran
existe-il un moyen pour que l'affichage soit plein écran quelque soit la résolution ?
merci

 

[pascal21]

Re : usf plein écran sur toutes les tailles d'écran

c'est bon ,j'ai trouvé ma réponse sur le site ici
https://www.excel-downloads.com/threads/usf-plein-ecran.56488/

 

[BERRACHED said]

Re : usf plein écran sur toutes les tailles d'écran

Salut,Pascal21

il y a aussi ca :

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

 

[pascal21]

Re : usf plein écran sur toutes les tailles d'écran

bonjour
merci Saïd, mais franchement, je ne saurais pas dire si le code que tu donnes est mieux ou moins bien que celui que j'ai trouvé
il faut reconnaitre que ce genre de code est parfaitement incompréhensible
du moins à mon humble niveau, merci quand même
bon dimanche

 

[Roland_M]

Re : usf plein écran sur toutes les tailles d'écran

bonjour

si ça pas t'être utile !?
il ne s'agit pas d'un plein écran,
mais une routine pour resize un userform quelque soit la résolution